DDDDDDDDDDDD EEEEEEEEEEEEEEE BBB8BBBB8BB8B UUU UUU GGGGGGGGGGGG 
DODDDDDDDDDD EEEEEEEEEEEEEEE BBB888BB8BBBB UUU UUU GGGGGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B8BB8BB8BBEB UUU UUU GGGGGGGGGGGG 
DOD | DDD EEE BBB BBB UUU UU G 

DOD DDD EEE BBB BBB UUU UUU GGG 

DDD DDD EEE 888 BBB UUU UUU GGG 

DOD DOD EEE BBB BBB UUU UUU GGG 

DDD DOD EEE 888 BBB UUU UUU GGG 

DOD DDD EEE BBB BBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBBBBBB UUU UUU GGG 

DDD DDD EEEEEEEEEEEE BBBBBBBS8EEBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBSBBBB UUU UUU GGG 

DOD DDD EEE BBB UUU UUU GGG GG6GGGGGGG 
DDD DDD EEE B88 BBB UUU UUU GGG 6G6G6G6GGGG6G 
DOD DDD EEE BBB BBB UUU UUU GGG 666666666 
DDD DDD EEE 888 BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B88B8BB8B888 UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDODDDDDD EEEEEEEEEEEEEEE BBSBBBB8BBBB UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE BB8B8BBBBBBBB UUUUUUUUUUUUUUU GGGGGGGGG 
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DDDDDDDD 88888888 GGGGGGGG EEEEEEEEEE vv vv AbAARA LL 000000 PPPPPPPP 

DODDDDDD 88888888 GGGGGGGG EEEEEEEEEE vv vV AAAAAA LL 000000 PPPPPPPP 

dD DD 8B BB GG EE vv VV AA AA LL 00 00 PP PP 

dD DD 688 BB GG EE VV VV AA AA LL 00 00 PP PP 

dD DD 68 BB GG EE VV VV AA AA LL 00 0O PP PP 

dD DD 6B BB 6G EE VV VV AA AA LL 00 00 PP PP 

DD DD 68888888 GG EEEEEEEE VV VV AA AA LL 00 00 PPPPPPPP 

DO DD 68888888 GG EEEEEEEE VV VV AA LL 00 00 PPPPPPPP 

0D DD 6B BB GG GGGGGG EE VV VV AAAAAAAAAA LL 00 00 PP 

DD DD 88 BB GG GGGGGG EE vv VV AAA LL 00 00 PP 

DD DD 8B BB GG GG EE vv VV AA AA LL 00 00 PP eee 
0d DD 6B BB GG EE ve WW Aa AA LL 00 00 PP cece 
DDDDDDDD 88888888 GGGGG EEEEEEEEEE VV BA AA LLLLLLLLLLE 000000 PP eee 
DDDDDDDD 68888888 GGGGGG EEEEEEEEEE vv AA AA LLLLLLLLLL 000000 PP eeee 
LL III SSSSSSSS 

LL III! SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] $s 

LL I] Ss 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] $$ 

LL I] $$ 

LL I] ss 

LLELLLLLLLL III] SSSSSSSS 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
ie DIGITAL EQUIPMENT CORPORATION, MAYHARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


S SOFTWARE IS ain UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY yston’s a oe ye ke WITH THE TERMS OF raven LICENSE AND WITH THE 
LU E) ABOVE gtd NOTICE. THIS SOFTWARE OR ANY OTHER 

is THEREOF AA T BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
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& 
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TH ERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

” 
%e 
* 
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* 
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tt 
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IN 
is OTHER PER 
TRANSFERRED. 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
& aepoke Tike. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


!@ DIGITAL ASSUMES NO RESPONSIB 


IBILIT 
t* SOFTWARE ON EQUIPMENT WHICH IS N 


Y FOR THE USE OR RELIABILITY OF ITS 
NOT SUPPLIED BY DIGITAL. 
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! WRITTEN BY 
4 R. Title ney 198 
P. Sager 198 


i 
‘ 
i 
! 
' MODULE FUNCTION 

' The top Level routine in this module, DBGSEVAL_LANG_OPERATOR, 
: 1 called by the expression parser to perform an operation. 
1 

' 

' 

« 


AMEN = OOONAOUNLS WN OOONOUS Win 


POPOROPOPOPONY — — es 


This styet ive does type conversion, as Speci tied by nnanguage 
epee ific type conversion tables, if needed. It then ca 

e routine specified by language specific operator routine 
tables, in order to actually perform the operation. 


REQUIRE ‘SRC$:DBGPROLOG.REQ'; 


OSS SSS Se 
NOUNEWUN “OO DNOUSWN OO 0O~ 


LINKAGE 
PLI_LINK = CALL(REGISTER=0, REGISTER=1, REGISTER=2, REGISTER=3); 
4 FORWARD ROUTINE 
4 UMAY, ! Dummy routine to force dump of tables 
48 DBGSBLISS_BITSELECT: NOVALUE, ; Perfora. BLISS bit selection X<p,s,e> 
4&9 DBGSBLISS INDIRECTION, ' Performs BLISS ind rection 
0 DBGSCONV_TEXT VALUE, ' Convert text string to value 
4 DBGSCONV = TQUABWORD VALUE , ! Convert text string to QUADWORD 
§ DBGSCONV= TOC TAWORD- VALUE, ! Convert text string to OCTAWORD 
pooscOny, TR TRF A_VALUE ' Convert text ite, I to RFA value 
4 pB6S00 AKPP ING: NOVALUE, ! cer ore type mappin 
5 DBGSEVALOP_ ut LANGUAGE: NOVALUE, } Set u be nter to Operator Information 
$ DBGSEVAL_LANG_OPERATOR, ! Evaluate a language expr. operator 
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SRK SKESE 


NOUS UM O 


DBG Ser el TYPEID, 
ie 


DBGSG 
Bese aNGUAeE et PE CONV, 
DBCSRAP SDT IPE CLASS, 


DEGSNUM_BYTES, 
DBGSPERFORM_TYPEID_CHECK, 


DBGSTYPE CONV, 
CONV_TEXT_PACK_VALUE, 


GET_DATA LENGTH, 
TISCALE, 


-/91N. 

ATH_ DEPOSIT, 

tNPTY e 

DATA-FOR_DEP, 
DESC, 

O_BTYPE_IN_RPG, 


oa 


meee 86D 
SS vi 
aq 


tbe bes ens I 
ze 
Rox 
55822 
om m>> 


VALUE, 
E: 


-< 
wv 
> 

—— 
x 
<o 


Ht 
ARGE 
Vv 


v 
a 


oTs 


R6: PLI_LINK, 
NOVALUE, 


x, 
VT_DR_DR: ‘NOVALUE, 
vT"TQ QDADWORD TO_ VALUE 

YQUADWOR TO VALUE, 
VT" TOCTAWORD OS VALUE, 
VT“ TRFA_TO_VALUE, 


PPeeoeT wera 
HOO ——MN0H 
PPPPAAFHARKAPKS 
MOAI MOOOOOOOOoN 
Sa5= 
et ee 


NOVALUE 
T_TYPE: NOVALUE, 


Ot he te el be et tet | 
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Set arent TYPEID for SET data type 
Obta ; c ype cn Value Descriptor 
Lenguage spec it type converter 

do a best guess at the 


CLA 
x ole waper ae bytes to hold 
Perforn ty typeid check on non-atomic 


Top Level CBE Bus type converter 
ne convert A. E unconverted 
string packed et ma 
Get the length of t y+ 
Get scal bony actor x * Pioating Point 
data to packed decimal conversion 
Find oin- in directed acyclic graph 
Find path in cirgcted acyclic graph 
Sim ube to FIND_P. om . for DEPOSIT 
Fix up typeid for enaty 99 
Create intermed ate data for ¢ deposit 


and a a3 rnate least 

git and sign into 

standard output format 
eos ghee. decimal to correct type. 
eps 49 BET A. a type; calculates size. 
PCy "Hos Bao ® for PLI bit-string 
conversion 

Catches PL/I conversion errors. 
Perform typeid check on a pair of enum. 
Perform typeid check on a pair of sets 
Perform range check for orm data type 
Perform range check for subrange data type 


Fortran E format routine 

Fortran E format routine 

Fortran E format routine 

Bitwise complement of a Longword 

Convert text Binary to Longword 

Convert text (signed) te Longword 

Convert text to single Floating 

Convert text to Double Float 

Convert text to t 

Convert text fo H_Float 

Convert text (octal) to Lon word 

seavers sons ae ecima 

Con F fee gned bit-string. 

ies, in WY 5a tstrings conversions. 
snitize™ mar pescrt ptors 


type 
debug ure se of bieécvt ox. Dx 


' Convert 


Convert av une signed Gu es value 
Convert into 0 
Convert into HH eolue’ 
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; 1 024 pecscet_p T_NAME, ! Obtain name of symbol 
3 4% p DBGSGET \ ! Allocate t enporery 
; 11 d¢ DBG _SKELETON_DESC, i Create sketeron Value Bescriptor 
Hi ' dBG ie ~ pest. ' Convert VAS desc AY val 
3 ' 0BG DESC, : Convert Primary to VMS 
3 4% ' 0BG NE: NOVALUE, ! Close yo Line ond start new Line 
3 1 ' } DBGSPERFORM_OPERATOR: NOVALUE, ! Perform arithmetic operat on 
9 ' DBGSPRIM_TO_ADDR, ! Convert grimery descriptor to value 
; : Z ' : : Sater coset © containing the eddress 
; 125 ' 1 DBGSPRIM_TO ig ! Converts “sPortnary os 
ce $ ' } ; to 2 oye ue descr 
e % ' INT: NOVA ! Print FAO-formatted Cext 
es Det 1 STA NEYAVALUESS NOVALUE, ! Get symbo value 
> p 1 DBGsSTA- ve ATOMIC: a Hye LUE, ! Get symbol information 
oy ' 1 DBGSSTA_TYP_ENUM: ! Get symbol information 
; 151 ' 1 DBESSTAR TYP-PICT: OVALE ! Get symbol information 
3; 1 § 0265 1 DBGSSTA_ ve SET: ALS ! Get symbol information 
 ¥ ‘ 96 1 DBGSSTA Po SUBRNG: VNOVA LUE, ! Get symbol information 
3 4 0267 1 DBGSSTAT typ on sere NOVALUE, ! Get symbol information 
; ' ! sneties a Set Cons on type 
; 5 } DBGSTYPEID_FOR_S '¢ t a Set Constant id 
3; ' 8 1 EXTE 
> % D271 1 DBGSGB_LANGUAGE: BYTE, ' Current Lang setting 
.. ¥ D272 1 SGL_NEG_CONST_TOKEN, ! Negative constant token 
; 140 D275 1 DBGSGL_POS_CONST_ TOKEN, ! Positive constant token 
; 141 D274 1 DBGS$GL_NEG_SIGN_TOKEN, ! Negative constant token (<-> unary minus) 
3 10g D275 (1 GSGL_POS SIGN TOKEN, ! Positive constant token (--> unary plus) 
3 167 16 ! DBGSGL_DEVELOPER: BITVECTORCI; ! Set developer flag 
3 re ' 8 : BUILTIN 
3 147 0280 1 EDITPC; 
3 129 D {i 1 LITERAL 
; 150 D2E 1 DBGSK_DTYPE_ARRAY = DBGSK_MAXIMUM_DTYPE + RSTSK_TYPE_ARRAY, 
3; 6151 0284 1 DBGS$K_D = DBGSK_MAXIMUM_DTYPE + RST Y NUM, 
. s § 0285 1 DBGSK~' =p IVeE. rere = DBGSK_MAXIMUM_DTYPE + RSTSK_ la “TPTR. 
3; 1 0286 1 DBGSK_DTYPE_S = DBGSK_MAXIMUM_DTYPE * RSTSK_TYPE_SET 
3; 156 D 1 DBESK~D TYPE SUBRNG = DBGSK_MAXIMUM_DTYPE + RSTSK-TYPE-SUGRNG, 
3; 155 D 1 DBGSK_DTYPE_PTR = DBGSK_MAXIMUM_DTYPE + RSTSK_TYPE_PTR 
3 7% 0289 1 DBGSK_DTYPE-PICT = DBGSK-MAXIMUM_DTYPE + RSTSK-TYPE_PICT, 
3 138 D290 DBGSK_DTYPE_RFA = DBGSK_MAXIMUM_DTYPE + RSTSK_TYPE_RFA; 
3; 1 25 
3; 160 D 4 1 ! The following is +4 that the map table can do a mapping from 
3 19) D + ! DSTSK_BOOL to DSCSK_DTYPE_T 
: 188 38 1 LITERAL 
3 166 De9 \ DSCSK_DTYPE_BOOL = DSTS$K_BOOL; 
Ae | 299 1 
3 189 930¢ 1 ! The follow Wi? so that fhe lang. cvt table can do a conversion from 
3 169 ' rH } DSTSK_DTYP Any to a specify dtype or a specify dtype to DSTSK_DTYPE_ANY. 
; 1 303 1 LITERAL 
3 7 ‘ ‘ i DSCSK_DTYPE_ANY = ZX'FF‘; 


voe-000 


ab ed RD a St a et ot a et 8 a Ot a Dee 


AVISSSLEFARR A LOO GOP OOOO PUI 


VEIN =O OOBNOUNE WO OONG 


a a ae a 8 et a ab RAD 


BIND 
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TABLEBASE = UPLIT BYTE (ZASCII ‘BASE'); 
! OPCODE =Niane sToase ett so that the type converter can get at it for 


nalling error messages. 


GLOBAL 


DBGSGL_OPCODE NAME: REF VECTOR C,BYTEI; 


BLISS_BITSELECTION_FLAG1:INITIAL(O) ,! 
BLISS_BITSELECTION_FLAG2:INITIAL(O),: 
BLISS_INDIRECTION_FLAG, 
CVT_ROUND_FLAG, 

CVT_TBL: REF VECTOR C,LONG), 


CVT_TBL_SIZE 
CVTINFO-TABLE: REF CVTINFOSTABLE, 


MAP_TBL: REF VECTOR C.WORD), 
MAP~ =TBL size. 
MAXDEP 
OPIRFO_ TABLE: REF OPINFOSTABLE, 


SAVE_RESULT_DESC: DBGSSTG_DESC; 


! Operator name in ASCIC 


Flag saying we've done a bit select 
operator in ,BLl 

i Flag say ng we've done a bit select 
operator in BLISS 

i Flag s ying whether we've done an 

ndirection yet 

ia flag set to TRUE indicate the 
conversion result is rounded 

i Pointer to a Language Dependent Type 
Conversion T le 

i number of entries in CVT 584 

! Pointer to the Type Conversion 

ip senne ens the current abie™* 

ointer to a lapping Ta 

! Number of entries ree Hoe . 

! Maxinum search Seoeh for Partai 

' Pointer to the Operator Information 
Table for the current language 

i Saved descriptor for commnication 
between <> and . in BLISS 


Page 
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MACROS FOR OPERATOR ROUTINE TABLES 


These macros are used to generate the tables which are used to select 
operator routines based on the operand data types and which define any 
type conversion behavior appropriate to the operator. for example, 
INT*REAL has to be converted to RGALOnEA in most languages, after 
which the a multiply routine is invoked; this kind of behavior 
is specified in the tables whose structure is defined here. 


rs 


SCONE 


Se Ge Ge Ge Ge Ge Ge Ge Ge G4 S6 SH Ge Ge 
a ee ed aD a a a ot od tt oo et 


er er er rt 
ONOUS WIN oO 


w 


vOusvOO if dent 984 99:32:32 HOBauG. SkcSbacevacoe.043;1 reer of 


! OPERATOR ROUTINE TABLE 


! The Operator »feut ine Table for a qiyen operator contains one entry for each 
4 4s ghee wh ch can be associated with utines aqerater Each such entry contains 
the operand t types utine fn by thet r “s #105 EAL,REAL for F_Floating 
y) and @ rout ndex which ee: routine t to be Tnvoked. 
nd also there "4s an optional routine net Tor typeid 
! The types ore eworgees ed as standard Dtypes and 
! the routine ind s simply a CASE index Used. to select the routine body. 


An Operator Routine Table for an operator is declared as follows: 


OPERATOR ROUTINE TABLE (TBLNAME, 
OPERATOR_ROUTINE (LEFT TYPE, 


NAME WT 


heck. 


: 

; 

: | | ies 

: i 

} RIGHT TYPE, RESULT_TYPE, ROUT_NAME 

3 235 TYPETD_CHECK_ROUT_NAME) , : 

: 1 OPERATOR_ROUTINE (LEFT TPE RIGHT_TYPE RESULT _TYPE, ROUT_NAME, 

; i HEPETD. CHECK_ROUT_NAME)) 

; 40 1 ! Here TBLNAME is the name of the table. L FT gi vre ts the Type Index Value of 
: 241 1! the left argument (or the only arguaent the operator is unary), RIGHT_TYPE 
; 24 1 is the ly e pee ve Value of the right argument (or 0 if the operator is unary), 
: 24 1 ! and ROUT — - the ORTER terrier oonantte routine. T_NAME 
: 246 1 is anaes ly Ste pretixed ft eld the routine index value. 

: 245 1 ! TYPEID_CHECK the name of thee correspondiog typeid check semantic 
: 26 1 ! routine tYPEID Neck _ROUT NAME is automatically pref a by “‘ORTSK_TYPEID’ 
; ° ! to yield the routine index Value. 

; 56 ' Define the macros that generate the Operator Routine Table. 

: 251 1 MACRO 

FH 25 fa 1 OPERATOR_ROUTINE WTA. TOL = 

HY i ! BIND” TBLNAME”= PLIT BYTE(ZREMAINING): VECTORC,BYTE) &; 

: 255 1 MACRO 

3 i OPERATOR_ROUTINE(LEFT TYPE, RIGHT TYPE, RESULT_TYPE, ROUT_NAME, 

3 2 ¥ j TYPEID_CHECK_ROUT_NAME) = 

; 28 8 i IF XDECLARED (ZNAME (*RSTSK-TYPE_', RIGHT_TYPE)) 

; 60 4 1 re seeoek- MAXIMUM_DTYPE + ZNAME ("RSTSK_TYPE_', RIGHT_TYPE) 

; 6¢ A ve (*DSCSK_DTYPE_", RIGHT_TYPE) 

3 e A" i IF DECLARED (ZNAME (*RSTSK_TYPE_', LEFT_TYPE)) 

; 4 Lal 1 DBGSK_MAXIMUM_DTYPE + ZNAME ("RSTSK_TYPE_*, LEFT_TYPE) 

: 26 i] 1 aELSS 

FH o8 &# 1 (*DSCSK_DTYPE_*, LEFT_TYPE) 

3 $ fi 1 ZFI 

: 270 4 1 ENAME (“ORTSK_'*, ROUT _NAME) AND 2X°OOFF*, 

3: e71 1 ("ORTSK"* _NAME)“-8, 

: 4 i i ZIF ZLENGTH LEQ’ — 

: ef ro 1 XITHEN 

i $f ql } ZELS 

; 276 x 1 ENANE (*ORTSK_TYPEID_", TYPEID_CHECK_ROUT_NAME) AND %X"OOFF* 


peseynyor iehee94s OW:HE:SE YMEGNL RLUNSSHEMT8S, Pome 


; " 1 “FI, 

; 1 iF ZLENGTH LEQ 4 

; M THEN 

; m 041 

: Mm 041 ZELS 

; " i oil ("ORTSK_TYPEID_*, TYPEID_CHECK_ROUT_NAME)*=8 

; " i ae "ZDECLARED (ZNAME ("ORTSK_RESULT_', RESULT_TYPE)) 

; A" Hi ae (*ORTSK_RESULT_', RESULT_TYPE) 

; " (Hed ZDECLARED (ZNAME ('RSTSK_TYPE_', RESULT_TYPE)) 

: " oe, ghOSSK.AAXIAUR_DTYPE + ZNAME ("RSTSK_TYPE_", RESULT_TYPE) 
3 B 1 E ("DSCSK_DTYPE_*, RESULT_TYPE) 

; M0406 1 FI) 

r} 4 2 | ZFl, 

; g 4 0%; 

| | 

; 8 ' : The TYPE_GRAPH_EDGE macro is used by the tables below. 

; 1 1 MACRO 

; ” : 1 TYPE GRAPH EDGE (LOWER TYPE, HIGHER TYPE) 

: " tar Ir DE CLARED (ZNAME ('RSTSK.TYPE.', HIGHER_TYPE)) 

; " 5 ne, Ook MAXIMUM_DTYPE + ZNAME (*RSTSK_TYPE_', HIGHER_TYPE) 
; i” 1 ZNAME ("DSCSK_DTYPE_', HIGHER_TYPE) 

3 : : ZF1)*8 

; A" 40 (AIF XDECLARED (SNAME (*RSTSK_TYPE_', LOWER_TYPE)) 

; " 4 at <_pecsK. MAXIMUM_DTYPE + NAME ("RSTSK_TYPE_', LOWER_TYPE) 
; M0444 1 NAME ("DSCSK_DTYPE_', LOWER_TYPE) 

; 0445 1 MFI) % 
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TYPE HIERARCHY TABLE 
The T Hierarchy Table et ie the implicit type Sonverstons 
be done with! in on’ ex ression. A type h hierarchy table e may be spocttte 
to a g ven operator in a stein 4. Ho, or may be shared across 
operators and languages. 
The Type utererchy Table i a directed acyclic graph. For quenple. 
for the addition o proses n Fortran, a part of the Type Hierarchy 
Table might look like t 
,F-COMPLEX => D_COMPLEX 
/ / 
LONG => F_FLOAT / 
\ f 
v 
D_FLOAT => H_FLOAT 
A Type Hierarchy Table is specified by giving its edges. 
An example of a Type Hierarchy Table definition is: 


TYPE a ee TABLE ( renege. TYPE _HIER_TABLE, 


_GRAPH_EDGE ( 
TYPE-GRAPH-EDGE (F. cS, 
TYPE~ GRAPH “EDGE (F. D), 


: Define the macro which declares a Type Hierarchy Table. 


CRO 
TYPE HIERARCHY TABLE (TBLNAME) = 
BIND TBLNARME = PLIT WORD(ZREMAINING) : VECTOR C,WORD) 2%; 


DBGEYAL OP ifobeoct9pe QOk2:5 YaKaHT BLingcsz v4a0e743 
TYPE INCOMPATIBILITY TABLE 


The Type a eatin ele Ta te Ba gg iy oF which ppeire of Syeee are 
incompati or att Fy Bi the 
ere express on), for ieaatlas D_FLO. end ey 

ompatibl FORTRAN. A Type Theompat tot ity Sf fa ney “be specific 
to a : ven operator in a given language, or may be shared across 
operators and languages. 


! A Type Incompatibility Table is specified by giving a list of 
! incompatible type pairs. 


An example of a Type Incompatibility Table definition is: 


TYPE_INCOMP TABLE ( FORADD_TYPE_INCOMP_TABLE, 
TYPE _GRAPH_EDGE (D, G),0)7 


rx 


: Define the macro which declares a Type Hierarchy Table. 


CRO 
TYPE_INCOMP_TABLE (TBLNAME) 
= BIND TBLNAME = PLIT WORD(ZREMAINING) : VECTOR C,WORD] 2; 
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OPERATOR INFORMATION TABLE 


The Operator Information Table for ? Language is a Dlockvecter indexed b 
operator code. for M epereser t gives he eddress of sn : orresponding 
aperecey Routine T Table, Type H ererchy Table "ype Incompatibility Table, 

and a flag. tangs resses are relative to TABLEBASE. An Operator 
Information Table s declared as follows: 


OPERATOR_INFO_ TABLE (TBLNAME 
GPERATOR_INFO =ENTRYLOPCODE ROUTTBL, HIERTBL, INCOMPTBL, 


OPERATOR. INFO. EMT TCR FeAG ROUTTBL, HIERTBL, INCOMPTBL, 


AGS); 


Here TBLNAME is the name e the dete 8 Operator Information Table. For each 
operator eccepted by the anguage . OPCODE is t the o erator code name for the 
operator (this is automatically prefixed by TOKEN K_"' by the macro). 


Define the macros which declare Operator Information Tables. 


CRO 
OPERATOR_INFO TABLE (TBLNAME) 
OWN TBLNARE : OPINFOSTABLE PSECT(DBGSPLIT) PRESET(ZREMAINING) 2%; 
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CRO 
OPERATOR INFO. ENTRY (OPERATOR ROUTTBL, HIERTBL, INCOMPTBL. FALSE) = 
C NAME (*TOKENSK.* ERATOR), OPINFOSL_ROUTTBL) = 


R 1 BA 
C SNAME ( TOKENSK '. OPERATOR), OPINFOSL_HIERTBL] = 


LEBAS 
C NAME Ht eRrehsK_© Ss OPERATOR) OPINFOSL_INCOMPTBL) = 
IN TB, = TABLEBASE 
tr TLENGTH LEQ 4 
onal ZNAME (*TOKENSK_', OPERATOR), OPINFOSV_FETCH] = TRUE 
me if ZNAME (*TOKENSK_', OPERATOR), OPINFOSV_FETCH] = FALSE 
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TYPE MAPPING TABLE 
Type Mapping Yebie epec ties the mapping of sy eben to be done 


prior » ow y express on Ovaluatio on. For example, ata type 
s treate 4 same as type W in expressions, so the mapping from 
WU to W is done here. 


> 


uinn—O0on 


A Type Mapping Table is represented as a sequence of pairs of data types. 


5 

§ An example of a Type Mapping Table definition is: 
4 TYPE PUPEING TABLE ( FORTRAN_TYPE_MAPPING_TABLE, 

TYPE _GRAPH_EDGE eu U, 8), 

60 TYPE-GRAPH_EDGE ( WwW), 
61 TYPE! “GRAPH_EDGE (¢ L), 
$¢ 0); 
6 
64 


w 


: Define the macro which declares a Type Mapping Table. 
MACRO 


A 
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441 6 TYPE ate TABLE (TBLNAME) 
ri +4 D TBLNAME = PLIT WORD (REMAINING) : VECTOR C,WORD) 2%; 
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TYPE CONVERSION INFORMATION TABLE 


The Type Conver ar Table for a language is a vector of longwords. for 
each longword, ives the eddress of the Serves ending Type Mapping Tabie, 
Type Conversion Te le needed for th Language ALl addresses are relative 
to TABLEBASE. nn Operator Information Table is declared as follows: 


CONVERSION _INFO_ TABLE (TBLNAME 
CONVERSTON_INFO_ENTRY(MAPTBL, CONVTBL, CVT ROUND ING_FLAG)); 


Here TBLNAME is the name of the whole Type Conversion Information Table. 
Define the macros which declare Type Conversion Information Tables. 


en a 
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461 CRO 
46 4 CONVERSION. INFO_TABLE (TBLNAME) 
46 OWN TBCNAME”: CVTINFOSTABLE PSECT(DBGSPLIT) PRESET (XREMAINING) %; 
465 591 CRO 
466 8 296 CONV RSION INFO,EN ENTRY (MATL CVTTBL TRUE) = 
46 m 059 CVTINFO BL] =f PTBL = EBASE, 
Mm 0594 CVTINEOSL vt . CVT TBE - TABLEBASE. 
469 m 0595 LIF tL ENGTA 
470 fe 596 
471 m 059 wertelon ROUND] = FALSE 
47 m 0598 ox 
47 m 0599 spb ROUNDI = TRUE 
47% 0600 “FI % 
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: Define the macro which declares a Language Specific Type Conversion Table. 


MACRO 
LANG_CVT_TABLE (TBLNAME) 
= BIND TBLNAME = PLIT LONG (REMAINING): VECTORC, LONG) 2; 


; of } H LANGUAGE SPECIFIC TYPE CONVERSION TABLE 

: 6 1! a Lone, age Spe tts Type ragnened } gn Table agg gg oh th t +4 yO ee 
; 4 1! are a one in a sengege specific manner. at thou L/I 
; 4 1! bitestr ngs have a gtype 0 V or VU, he are nendice ve = ‘d olate from 
: ¢ 1 1 : most other data having those data types as in BLISS or Pascal). 

; 4 : iia Language specific conversion table is specified by giving a case index, 
; ¢ ¢ : H and a higher and lower type. 

: 6 1 | An example of a language s ecitic conversion table entry is: 

: 4 1i TANG, CVICTABLE CPL BLE : 4 

; 4 “pane CVT. INDEX I EVTSPLT FL. Lu. TF), 

3; 6 1! 

8 } 

: £38 1 ! Define the macro which declares the entries for Language Specific Type 

: t3e } ; Conversion Table. 

; 496 1 MACRO 

; 49 6 1 LANG_CVT ENTRY (INDEX, LOWER TYPE, HIGHER_TYPE) = 

3 498 A" UCC CENARE C'CVTSK_", INDEX))*6) 

3 4 : 1 Sete POECLaneD (ZNAME ('RSTSK_TYPE_*, HIGHER_TYPE)) 

3 Oe " | am Pbosk MAXIMUM_DTYPE + ZNAME (‘RSTSK_TYPE_', HIGHER_TYPE) 

; 504 ¥ 1 ENAME ("DSCSK_DTYPE_*, HIGHER_TYPE) 

; be : } ZF1))*8) 

3 4 4 : ate ZDECLARED (ZNAME (‘RSVS%_T1PE_", LOWER_TYPE)) 

; % a \ SEL poe MAXIMUM_DTYPE + ZNAME ("RSTSK_TYPE_*, LOWER_TYPE) 

: 511 ¥ 1 ZNAME ("DSCSK_DTYPE_', LOWER_TYPE) 

; ig : ZFI) &; 

: 514 1 

3 1 : 

; 13 1 

; 518 1 

; 319 1 

; 520 1 
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ADA OPERATOR INFORMATION TABLES 

i This section contains the Operator Routine and Type tables needed to 

! evaluate expressions in the ADA Language. 


nde the Type Conversion spformetton Table for 
r now, there are no es eh ons to the standard DBasCVT -DX_DX conversion 
A.B so we do not specify any tables here. 


CONVERSION. INFO_TABLE ae EA TABLE 


CONVERSION_INFO_ENTRY CTABLEBASE, TABLEBASE)); 


Define the Type Hierarchy Table for ADA, This table specifies the implicit 
type conversions to be done on arithmetic operations. 


For de ing purposes, we pave B edy to adopting looser rules than 
the compiler. For or an integer, X to a float Y in ADA, 
you have to say something | oeLOATONS 

will do the impl leit hing” on and allow just 


We thus allow integer to be converted to either FIXED or FLOAT. 
We allow the conversion of A ha to H float (but not to F, D. or G 


fet vin, _ debugger. we 


' since that could lose precision). 


BU,WU,LU 
\ ore 
B,W ----> L => F => D => H 
© FIXED <-- 


TYPE _HIERARCHY_TABLE (ADA HIER_TABLE, 
TyP EDGE 


_GRAPH~ (8B, CO), 
TYPE-GRAPH-EDGE (BU, L). 

“GRAPH"EDGE (W, L). 
TYPE-GRAPH-EDGE (WU, L), 
TYPE-GRAPH-EDGE (LU. L). 
TYPE-GRAPH-EDGE (L, fF), 
TYPE-GRAPH-EDGE (L, FIXED), 
TYPE-GRAPH-EDGE (F, 0D), 
TYPE-GRAPH-EDGE (F, G), 
TYPE-GRAPH-EDGE (FIXED, H), 
TYPE-GRAPH-EDGE (D, HS, 
TYPE-GRAPH-EDGE (G, H). 


: Define the Type Hierarchy Table for ADA deposit. 


TYPE_HIERARCHY_TABLE (ADA_DEPOSIT_TABLE, 


; Allow any numeric type to any other numeric type. 


ivPE -GRAPH_EDGE (8, BU), 
TYPE-GRAPH-EDGE (BU, W), 
TYPE-GRAPH_EDGE (W, Ww: 


TYPE_GRAPH_EDG ENUM. SUBRNG) , 
TYPE-GRAPH-EDGE (T, SUBRNG), 


a f DGE (L, SUBRNG) 
TYPE- GRAPH EDG CFEXED. SUBRNGD 


oo 
wr 
ee ee 
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P TYPE _GRAPH_EDGE (WU, L), 
P TYPE _GRAPH_EDGE (L, LU), 
P TYPE _GRAPH_EDG be FIXED), 
§ P TYPE-GRAPH_EDGE (FIXED, F), 
Pe TYPE_GRAPH_EDGE (F ,D), 
P TYPE_GRAPH_EDGE (D, G), 
5 P TYP = BRAP HERG (G, H), 
: TYPE_GRAPH_EDGE (H, 8), 
P ! Allow number => SUBRNG. The constraint check should be done 
P ! by the DBGSPERFORM _TYPEID_CHECK routine. Also allow ENUM->SUBRNG 
. } and character => SOBRNG. 
P 
P 
) 
P 
P 
P 
P 
P 


TYPE-GRAPH_EDGE (G, SUBRNG), 
E_GRAPH_EDGE (H, SUBRNG), 


: Define the Operator Routine Table for ADA unary plus. 


OPERATOR_ROUTINE_TABLE (ADA_UNARY_PLUS_TABLE, 


! The following are not language dependent types. This is needed for DEBUG 
: types. fer queupia.. DEP/ UAB L= rs ih pe 


OPERATOR_ROUTINE (B, 8, 8, UNARY_PLUS_B), 
OPERATOR-ROUTINE (W, W, W, UNARY-PLUS_W), 
OPERATOR-ROUTINE (P, P, P, UNARY-PLUS-P), 


OPERATORROUTINE (Q, Q, Q, UNARY-PLUS_Q), 
OPERATOR_ROUTINE (0, 0, 0, UNARY_PLUS_O), 


NE (L, L, L, UNARY_PLUS_L), 
N ixeb, FIXED, FIXED: UNARY_PLUS_FIXED), 


SSSSSSSSSSSSSSSS 
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Sa a ee ee i i i ie ee ee 
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oe 
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PAAAASEAAAAO 


= = ° 


F, 

D. D. D. UNARY-PLUS-D), 
6. 6. G, UNARY-PLUS-G) 
H, WH. H, UNARY-PLUS-H)5; 


OPERATOR_ROU 
OPERATOR_ROU 
OPERATOR_ROUT 
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OPERATOR~ROUT 
OPERATOR-ROUT 
T 


: Define the Operator Routine Table for ADA unary minus. 


ee ee ec eel cr ce a ek) cee eB coat eB ee mh eB a BB a ek BB ee ce ad od ad od 2 6 od et 
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4 OPERATOR_ROUTINE_TABLE (ADA_UNARY_MINUS_TABLE, 
ig ! The following are not Language dependent types. This is needed for DEBUG 
. ! types. for tusaple. pep/Quas L= enn e 
P OPERATOR_ROUTINE (8, 8, B,. UNARY_MINUS_B), 
p OPERATOR_ROUTINE (W, W, W. UNARY_MINUS_W), 
P OPERATOR_ROUTINE (P, P, P, UNARY_MINUS_P), 
a OPERATOR_ROUTINE (@, Q, Q, UNARY_MINUS_Q), 
P OPERATOR_ROUTINE (0, 0, 0, UNARY_MINUS_O), 
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ERATOR_ROUTINE ( L, UNARY_MINUS_L) 

GPERATOR-ROUT| (Finks, FIXED, FIXED, “UNARY_MINUS_FIXED) 

OPERATOR-ROUTINE (F, F, F, UNARY_MINUS_F), 

OPERATOR-ROUTINE (D, D, D, UNARY-MINUS_D), 

OPERATOR-ROUTINE (G, G, G, UNARY-MINUS_G) 

OPERATOR-ROUTINE (H, H, H, UNARY-MINUS_H)5; 
Define the Operator Routine Table for ADA absolute value. \ 
OPERATOR ROUTINE Ast (ADA_ABSOLUTE_TABLE, &. 

ATOR ROU E -ABSOLUTE TABLE Rs 


We Choco eae 
OPERATOR “ROUTIN (Fixed, faked; UF Exeo, ABS_FIXED), 
OPERATOR-ROUTINE (F, F, F, ABS_F), 
OPERATOR-ROUTINE (D. D. 0. ABS. 

OPERATOR-ROUTINE (G. G. G. AB 
OPERATOR-ROUTINE (H, H, H. AB 


: Define the Operator Routine Table for ADA addition. 
OPERATOR POUT ine ae A ag ® = alt 


OPERATOR_ROUTINE ( RDD_L 

OPERATOR ROUT INE CF IxE6, “AXED ‘eine, ADD_FIXED_FIXED), 
OPERATOR-ROUTINE (F, F, F, ADD.F_F), 

OPERATOR-ROUTINE (D. DD > ADD"D"D). 

OPERATOR-ROUTINE (G, G, G. ADD~G-G) 

OPERATOR-ROUTINE (H, H, H. ADD"H-H)5; 


Define the Operator Routine Table for ADA subtraction. 


ol 


OPERATOR_ROUTINE_TABLE (ADA_SUBTRACT TABLE, Pa 
OPERATOR_| ROUTINE (L SUB_L~L 
SPERA TOR-ROUTI (Fix Eb. FIXED: Fixéo, SUB FIXED. FIXED), 
OPERATOR-ROUTINE fF, F, F, SUB_F_F), 
OPERATORTROUTINE (D, D:D, SUBTD"D), =~ 
OPERATOR-ROUTINE (G. G. G. SUB~G-G) 
OPERATOR-ROUTINE (H. H. H, SUB-H~ 


Define the Operator Routine T e for ADA multiplication. 


OPERATOR_ROUT INE TABLE (ADA_MULTIPLY ~TABLE, 
OPERATOR_ROUTINE (L MUL 
OPERATOR-ROUTINE (FIX Eb, FIXED: “Fito, MUL_F IXED_FIXED), 
OPERATOR-ROUTINE (F, fF. F. MUL_F 
OPERATOR-ROUTINE (D. D. “b-b): 
OPERATOR ~ ROUTINE (G. G. G. MUL~G-G) 
OPERATOR-ROUTINE (H, H. H, MUL-H"H)5; 


Define the Operator Routine Table for ADA division. 
OPERATOR_ROUTINE TABLE, CADA_DI DIVIDE ~TABLE. 


OPERATOR_ROUT INE DIVTL_L 
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ATOR_ROUTINE (FIXED, FIXED, FIXED, DIV_FIXED_FIXED), 
OPERATOR-ROUTINE (F, : F, DIV.F_F), 

OPERATOR-ROUTINE (D. D. D. DIVD"D). 

OPERATOR-ROUTINE (G. G. G. DIV"G-G) 

OPERATOR-ROUTINE (H, H, H, DIVIHTH)S; 


Define the Operator Routine Table for ADA Modulus. 
OPERATOR_ROUTINE TAas (ADA OO YS clete. 
OPERATOR_ROUTINE (L, L, L, MOD_C_L)); 
Define the Operator Routine Table for ADA Remainder. 
OPERATOR_ROUTINE_TABLE (ADA REMAINDER _TABLE, 
OPERATOR_ROUTINE (L, L, L. REM_L_C)); 
Define the Operator Routine Table for ADA Exponentiation. 


OPERATOR_ROUTINE ae 4 -POWER OF TABLE, 
OPERATOR ROUTINE “L. PODER-L_L), 


L. = = 
TORTROUTINE (F. Fo ES POWER@F =F), 
OPERATOR-ROUTINE (D. D. D. POWER"D-D). 
ERATOR-ROUTINE (G, G, G, POWER-G_G) 
OPERATOR-ROUTINE (H, H. H, POWER-H-H)5; 


Define the Operator Routine Table for ADA Logical Not. 
OPERATOR_ROUTINE_TABLE (ADA_NOT_TABLE, 

OPERATOR_ROUTINE (TF, TF, TF, NOT_L)); 
Define the Operator Routine Table for ADA Logical And. 
OPERATOR_ROUTINE_TABLE (ADA_AND_ TABLE, 

OPERATOR_ROUTINE (TF, TF, TF, AND_L_L)); 
Define the Operator Routine Table for ADA Logical Or. 
OPERATOR_ROUTINE Tags (ADA_OR_TABLE, 

OPERATOR_ROUTINE (TF, TF, TF, OR_L_L)); 
Define the Operator Routine Table for ADA Logical Exclusive Or. 
OPERATOR_ROUTINE He a (ADA_XOR_TABLE, 

OPERATOR_ROUTINE (TF, TF, TF, XOR_L_L)); 
Define the Operator Routine Table for ADA Equal. 


OPERATOR_ROUTINE TABLE (ADA_EQUAL_TABLE 
OPERATOR_ROUTINE (ENUM, "ENUM, TF, EQL_L_L. ENUM_ENUM), 


AX-11 
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; P OPERATOR_ROUTINE (L, L. TF, EQL_L_L), 

; P | ERAT ATOR-R ROUTIN (Fixe? FIXED tr “Eat _Fixeo. FIXED), 
; p 1 OPERATOR ROUTINE (F, F, TF, EQL_F_F), 

; P 1 RATOR~ =ROUTIN (D, D. TE, EQL“D"D), 

: g 4 P 1 OPERATOR-ROUTINE (G, G, TF, EQL"G-G), 

; 755 P 1 OPERATOR-ROUTINE (H, H. TF. QL H) 

; i 3 i OPERATOR-ROUTINE (TF, TF, TF. EQL-TF_TF)); 

; 7 1 

3 735 ! Define the Operator Routine Table for ADA Not Equal. 

: 76 Pp 1 OPERATOR ROUTINE {Ae (ADA_NOT_EQUAL_ TABLE, 

; 76 P 1 OPERATOR_R INE ENUM, ENUM, TF, ~NEQ_L_L, ENUM_ENUM), 
; 76 P 1 OOERATOR ROUTAN a. tt. Ned, We Pe 

> 764 P 1 OPERATOR-ROUTINE (FIXED, FIXED, TF, NEG_FIXED_FIXED), 
: 765 P 1 OPERATOR-ROUTINE (F, F. TF, NEQ_F_F),~ 

; 766 P 1 TOR-ROUTINE (D, D, TF, NEQ-D-D), 

: 76 P 1 OPERATOR-ROUT INE (G, 6. TF, NEQ-G.G), 

: 768 P 1 OPERATOR-ROUTINE (H TF, NEQ-H-H) 

; g i 1 OPERATOR_ROUT INE Ck, i, TF, NEQ-TF_TF)); 

: 771 1 

3 ae ! Define the Operator Routine Table for ADA Less Than. 

: 77% P 1 OPERATOR ROUTINE TABLE (ADA_LSS_THAN_TABLE, 

: 775 P 1 OPERATOR_ROUTINE (ENUM, ENUM, TF, LSS_L_L, ENUM_ENUM), 
: 276 P 1 OPERATOR-ROUTINE (L, L. TF, LS$_L_L 

: 77 P 1 OPERATOR-ROUTINE (FIXED, FIXED, TF, LSS$_FIXED_FIXED), 
: 77 P 1 OPERATOR-ROUTINE (F, F. TF, LSS_F_F).~ 

: 7 P 1 OPERATOR-ROUTINE (D, D. TF, LSS-D7D), 

3 P0904 1 OPERATOR-ROUTINE (G, G. TF. LSS-G.G), 

: 781 P0905 1 OPERATOR-ROUTINE (H, H, TF. LSS-H-H) 

: fas 906 OPERATOR-ROUTINE (TF, TE, TF. LSS-TF_TF)); 

: 7 008 1 

3 re § $44 } Define the Operator Routine Table for ADA Greater Than. 
: 7 P 0911 1 OPERATOR_ROUTINE TABLE (ADA_GTR_THAN_TABLE, 

3 72 P af 1 OPERATOR_ROUTINE (ENUM, ENUM, TF; GTR_L_L, ENUM_ENUM), 
; 789 P0913 1 ERATOR-ROUTINE (tL, C. TF, GTRLL,- 

: P0914 1 ERATOR-ROUTINE (FIXED. FIXED, TF AL _FIXED_FIXED), 
3 791 P0915 1 OPERATOR-ROUTINE (F, F. TF, GTR_F_F).~ 

: 198 P at} 1 OPERATOR-ROUTINE (D, D, TF. GTR7D-D), 

: 195 P0917 1 oP OPERATOR ROUT INE (G. G6, TF. GTR7G-G), 

3 Pp a8 1 RATOR-ROUTINE (H. H, TF. GIRTH"H) 

: 795 1 OPERATOR” “ROUTINE (TF, TE, TF. GIRITF_TF)); 

: $38 oY 

3 oe ? § ' Define the Operator Routine Table for ADA Less Than or Equal to. 
; P 0924 1 OPERATOR_ROUTINE NE TABLE, (AD (ADA_LSS EQUAL TABLE, 

+ 801 P0925 1 OPERATOR_ROUT ENUM, ENUM, TF, LEQ LL, ENUM_ENUM), 
: : P 09 $ 1 OPERATOR-ROUT I (L {, TF, LEQLLY,~ 

: P 0907 1 OPERATOR-ROUTINE (FIXED, FIXED, TF, LEG_FIXED_FIXED), 
; P0928 1 TOR~ QUT INE (F, F, TF, CEQ_F_F),~ 

: 805 P 1 OPERATOR-ROUTINE (D. D. TF, LEQ™D"D), 

: P 1 OPERATOR-ROUTINE (G, G, TF, LEQ™G~G), 
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Define the Operator Routine Table for ADA Greater Than or Equal to. 


ERATOR_ROUTINE TABLE (AD (ADA. grr TRAEQUAL. TABLE, 
OPERATOR_ROUTINE (ENUM “GEQ_L_L, ENUM_ENUM), 
OPERATOR ROUTIN L he WF EG LL 
OPERATOR-ROUTINE (FIXED, FIXED, TF, GEO_FIXED_FIXED), 
OPERATOR-ROUTIN (F, F, TE, GEQ_f_F), 

OPERA TOR? ROUTINE (D. D. TF. Gea” 070). 
OPERATOR-ROUTINE (G, G, TF. GEQ"G-G). 
OPERATOR-ROUTINE (H. H. TF. GEQ-H-H) 
OPERATOR-ROUTINE (TF, TE, TE, GEQ-TF_TF)); 


Define the Operator Routine Table for ADA Concatenate. 


OPERATOR ROUTINE TABLE CARA, Saris ~JABLE, 


: Define the Operator Information Table for ADA. 


OPERATOR -ROUTINE (T, T, T, CONCAT_T_T)); 


OPERATOR_INFO_TABLE (ADA_OPINFO_TABLE, 


: Unary arithmetic. 
OPERATOR_INFO_ENTRY 
(UNARY_PLOS, 
OPERATOR_INFO_ENTRY 


ADA_UNARY _PLUS_TABLE, 


Y_ MiRuS ADA_UNARY __MINUS_TABLE, 


( 
OPERATOR_IRFO_ENTRY 
(ABSOLUTE, 


: Binary arithmetic. 
OPERATOR INFO_ENTRY 
OPERATOR. INFO_ENTRY 
(SUBTRACT; 
OPERATOR INFO_ENTRY 
OPERATOR_INFO_ENTRY 
(DIV 
OPERATOR_INFO_ENTRY 


ADA_ABSOLUTE_TABLE, 


ADA_ADD_TABLE, 
ADA_SUBTRACT_TABLE, 
ADA_MULTIPLY_TABLE, 
ADA_DIVIDE_TABLE, 
ADA_MODULUS_TABLE, 
ADA_REMAINDER_TABLE, 
OF, ADA_POWER_OF _TABLE, 
: Logical operations. 


OPERATOR_INFO_ENTRY 
(NOT? ADA_NOT_TABLE, 


ADA_HIER_TABLE, TABLEBASE), 
ADA_HIER_TABLE, TABLEBASE), 
ADA_HIER_TABLE, TABLEBASE), 


ADA_HIER_TABLE, TABLEBASE), 
ADA_HIER_TABLE, TABLEBASE), 
ADA_HIER_TABLE, TABLEBASE), 
ADA_HIER_TABLE, TABLEBASE), 
ADA_HIER_TABLE, TABLEBASE), 
ADA_HIER_TABLE, TABLEBASE), 
ADA_HIER_TABLE, TABLEBASE), 


ADA_HIER_TABLE, TABLEBASE), 


UpeeUG. Shc SoecEvALG 
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OPERATOR. INFO_ENTRY 

OPERATOR_INFO_ENTRY 

OPERATOR_INFO_ENTRY 
(XOR> 


: Relationals. 

OPERATOR IN INFO_ENTRY 
OPERATOR Thro. ENTRY 
OPERATOR-INFO. CetRY 


(LSS THAN 
OPERATOR INFO. ENTRY 


: String operations. 


OPERATOR INFO_ENTRY 
(CONTATENATE, 


: Convert, Deposit, 
OPERATOR_INFO_ENTRY 
(CONVERT 
OPERATOR_INFO_ENTRY 
(DEPOSIT 


OPERATOR INEO_EN ENT 
(IDENTITY? 


if Bip 


ADA_AND, TABLE, 
ADA_OR_ TABLE, 
ADA_XOR_TABLE, 


ADA_EQUAL_TABLE, 

ADA_NOT_EQUAL_TABLE, 
ADA_LSS_THAN_TABLE, 
ADA_GTR_THAN_ TABLE, 
ADA_LSS_EQUAL_TABLE, 
ADA_GTR_EQUAL_TABLE, 


ADA_CONCATENATE_TABLE, 


and Identity. 


TABLEBASE, 
, TABLesAsS. 
” TABLEBASE, 


19be 94:84:54 — Yoeaug. SreSpectvacor.0$5; 1 


ADA_HIER_TABLE, TABLEBASE), 
ADA_HIER_TABLE, TABLEBASE), 
ADA_HIER_TABLE, TABLEBASE), 


ADA_HIER_TABLE, TABLEBASE), 
ADA_HIER_TABLE, TABLEBASE), 
ADA_HIER_TABLE, TABLEBASE), 
ADA_HIER_TABLE, TABLEBASE), 
ADA_HIER_TABLE, TABLEBASE), 
ADA_HIER_TABLE, TABLEBASE), 


ADA_HIER_TABLE, TABLEBASE), 


ADA_DEPOSIT_TABLE, TABLEBASE), 
ADA_DEPOSIT_TABLE, TABLEBASE), 


TABLEBASE, TABLEBASE)); 
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BASIC OPERATOR INFORMATION TABLES 
This section contains the Operator Routine and Type tables needed to 
evaluate expressions in the BASIC Language. 


The following summarizes the information in the BASIC manual about 
data types. type conversions, and operators. There is further documentation 


SerSSEoRe 


10 within the es below, describing exactly how we translate this into 
i} the DEBUG tables. 
ig BASIC Data Types: 
914 - Integer saigned only} 
ai? ayte (8=bit), word (16-bit), long (32-bit) 
319 * single (f-float), double (d-float), gfloat, hfloat 
918 . per ed Decimal 
ah 9. °g, bytes: specifies number of digits and location of decimal point 
3 1 " one character per byte 
4 § iz bytes; specifies record file address - block number and offset 
925 BASIC Constants: 
3 $ . Any of BASIC's data types 
928 BASIC Aggregates: 
929 ty = 
: - Record 
3 $ auprenetonss : 
ote ; F Loating-point or integer operands separated by arithmetic operators 
935 +, =, *, /, *, **) and optionally grouped by parentheses. 
339 Seeytts numeric (see type conversion). 
- Str 
938 1 Strings separated by ‘’+'* (concatenation) or by combinations of 
939 § string functions. 
940 Result: string. 
941 - Relational 
96 5 Operands may be either numeric or string (not mixed) 


Operators: =, <, >, <= (or =<), >= (or =>), <> (or ><), == 
te: "ss" fs 


SEEEEPEE 


Result: true (-1) or fal 
330 - Assignment, conditional 
95 Type Conversion: 
938 ae istcenorte 


Note that, with one exception the resulting data type is the seme 
as that of the operand with the higher data type. e exception is 
when the operands are poustE and GFLOAT: BASIC promotes both yolues 
to HFLOAT, and the result is HFLOAT. This preserves both precision 


ee ce ed ce ee ce ce ce ce ee ce ce ce ce ee ee ce cee cee ce ce ce ee ce ce ce ce ce ce ce ce cD ce ce ee ce cee ce cee ee cee ce ce ee ee ee ee ee ee ed ed ed ed 
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ccc ce el ee ce cee cee ee cel ee ee me cee cel ee me me ee ee me ee ce ee ed ed ed nd a td dd So od dd Dd wd 3 
OT DD DD DD eh te heheh beh ee eh ed ht it is os i i i te lt 
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and magnitude. 
: BYTE WORD LONG SINGLE DOUBLE GFLOAT HFLOAT 
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BYTE { BYTE WORD LONG SINGLE DOUBLE GFLOAT HFLOAT 
WORD {| WORD WORD LONG SINGLE DOUBLE GFLOAT HFLOAT 
LONG $ LONG LONG LONG SINGLE DOUBLE GFLOAT HFLOAT 


SINGLE { SINGLE SINGLE SINGLE SINGLE DOUBLE GFLOAT HFLOAT 


DOUBLE : DOUBLE DOUBLE DOUBLE DOUBLE DOUBLE HFLOAT HFLOAT 


GFLOAT i GFLOAT GFLOAT GFLOAT GFLOAT CHFLOAT GFLOAT HF LOAT 


HFLOAT { HFLOAT HFLOAT HFLOAT HFLOAT “HFLOAT HFLOAT HFLOAT 
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SANS 
Fun—o 


0000 
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Packed Decimal Conversion 
1. If _ th operands are Decimal with the same digit and scale 
values, no conversion is performed. If the operands have 
different digit and $5 ae vetuee, BASIC aluays s used the larger 
paar of: Spee tt ie¢ ai gits for the result. The debu ger uses 
o lorge enough digit and scale factor to avoid overflows if 


2. If" one operand is Decimal and one is integer, the following 
nteger --> decimal uf essen occur (in ASIC): 


SSSSRSNSSSSSSSESSS 


ce mee ce ce ce cee we ce em ee me ce ee ee em me ee ee ee ea ee ek ee ee ed ed ed oe ed ed od od od od dD 


YTE > DECIMA 
WORD --> DECIMAL 
LONG <-> DECIMAL (46 0) 
The debugger converts them all to DECIMAL(31,0). 
3. If one operand is Decimal(d.s) and one is floating-point, the 
following decimal ==> fl Loating-point conversions occur 
if range of d is <=1 thru <=6 -=-> SINGLE 
if range of d is <=7 thru <=15 --> DOUBLE----; 
4 GFLOAT ' <-- depends on floating-point operand 


ead nh OB aD ab met AD OB 
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AFLO 
if range of dis =1 =--> DOUBLE 
if range of d is <217 thru <=31 --> HFLOAT 

The debugger employs this same scheme. 


Define the Gf. Conversion Information Table for BASIC 
There is no CVT_TABLE specifying exceptions to the DBGSCVT _DX_DX rules. 


CONVERSION _INFO_TABLE (BASIC_CVTINFO_TABLE 
CONVERSION_INFO_ENTRY (TABLEBASE, TABLEBASE)); 
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Define the Type Hierarchy Table for BASIC. 
This table is described above when we tote 3 about c gaversion rules. 
pe. out the G edges, the graph specified by thi s table is: 


B-> W => => FeD->H 
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P 
The case of converting packed to float is handled by the routine 
MAP_PACKED in DBGEVALOP. 


—s 


tt 
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: Define a Type Hierarachy Table for BASIC. 


TYPE HIERARCHY TABLE (BASIC_HIER1_TABLE, 
TYPE _GRAPH“EDG (B, W), 


YPE-GRAPH_EDG 


vuvUVUUUU 


TYPE~GRAPH"EDG 
TYPE~GRAPH~EDG 
TYPEGRAPH_EDG 


! Define another Type Hierarachy Table for BASIC. 

! This is a subset of the HIER! table. It is used for those ooeceters that 
! only accept integer types. It would also be OK to use the HIER! table, 

! but providing a smaller table speeds up the code. 


TYPE_HIERARCHY_TABLE (BASIC_HIER2_TABLE, 
TYPE_GRAPH-EDGE (8, W), 
TVPE_GRAPH EDGE (Ww, L). 
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! Define the Type Hierarchy Table for BASIC deposit. 

! This is a circular table which includes all types except T. 

! This means that ony of the numeric types are convertible to any 
! of the other numeric types on a DEPOSIT. 


i 

i 

i 

‘ 

i 

TYPE HIERARCHY TABLE (BASIC_HIERD_TABLE, 
TYP GE (8, w) 


SN NSIO OO Settee POPUPS E™ BE PPP PEP 
DSRNA NP IIS Ooo on 2S 
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lee 

! Most of the arithmetic routines operate on two arguments of the same type. 
: That type may be B, W, L, F. D. G, H, P. so we provide all of those case 

: ces. 

lee 


! Define the Operator Routine Table vee BASIC addition. 
: Note that addition of text strings is actually concatenation. 


OPERATOR_ROUTINE_TABLE (BASIC_ADD_TABLE, 
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OPERATOR ROUTINE 
OPERATOR -ROU 


TINE (0 
“ROUTINE (0, 0, 0, UNARY-PLUS-O), 
ATOR_ROUTINE (8, 8, 8, UNARY_PLUS 8). 
OPERATOR-ROUTINE (W, W, W, UNARY-PLUS_W), 
OPERATOR-ROUT IN (, L, L, UNARY"PLUS-L), 
OPERATOR-ROUTINE (F, F, F, UNARY-PLUS_F), 
OPERATOR-ROUTINE (D, D, D, UNARY-PLUS_D), 
OPERATOR -ROUTIN (G, G, G, UNARY"PLUS-G), 
OPERATOR-ROUTINE (H, H, H, UNARY-PLUS_H) 
OPERATOR-ROUTINE (P, P, P, UNARY-PLUS_P)5; 


Define the Operator Routine Table for BASIC unary minus. 

OPERATOR_ROUT INE TABLE (BASIC * nage 4 -MINUS_TABLE, 

! The following are not Lan usge de i types. This is needed for DEBUG 
types. For example, DEP/QUAD L= 


OPERATOR_ROUTINE 
OPERATOR_ROUT INE 


OPERATOR_ROUT INE 


OPERATOR_ROUT INE 


! Define the Operator Routine Table for BASIC a pt 

i Exponentiation has some mixed forms. For example you raise a 

i floating number to an inte a ower, you do not necessarily 

i want to first convert the © float. Instead, a special 

routine indices such as POUER. FLL are “provided to do the right thing here. 


OPERATOR_ROUTINE He a ge POWER TABLE, 


OPERATOR_ROUTIN W> POW POWER _W). 
OPERATOR “ROUTINE ve - L. POWERTL-L), 
OPERATOR-ROUTINE (F. L. F. POWER-F-L), 
OPERATOR-ROUTINE (D. L. D, POWER-D-L), 
OPERATOR ~ROUT INE (G, L. G, POWER"G-L). 
OPERATOR-ROUTINE (H, L. H. POWERH-L), 
OPERATOR-ROUTINE (F. F. F. POWER-F-F). 
OPERATOR-ROUTINE (D, F. D. POWER-D-F). 

RATOR-ROUTINE (F, D, D, POWER-F_D), 
OPERATOR-ROUTINE (D, D, D. POWER-D-D), 
OPERATOR-ROUTINE (G. G. G. POWER~G_G) 
OPERATOR-ROUTINE (H, H, H, POWER"H-H)5; 


! Define the Operator Routine Table for BASIC equal. 
: tt postntcne can be done on strings as well as ail the numeric 
i . 
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Define the Operator Routine Table for BASIC less than. 
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p OPERATOR ROUTINE TABLE (BASIC_LSS TABLE, 
P OPERATOR_ROUTINE (T, T, L> LSS_T_1). 
P OPERATOR-ROUTIN (B, B, L, LSS-B-B), 
P OPERATOR-ROUTINE (W, W, L. LSS_W-W), 
P ERATOR-ROUTINE (L. L, L. LSS-L-L), 
P OPERATOR-ROUTINE (F, F. L. LSS.F-F). 
P ERATOR ROUTINE (D, D, L. LSS=D7D), 
P OPERATOR-ROUTINE (G, G, L. LSS~G-G). 
P RAT =ROUTINE (H, H, L, LSS"H-H) 
OPERATOR-ROUTINE (P, P, L, LSS-P7P)5; 


Define the Operator Routine Table for BASIC Less than or equal to. 


P OPERATOR ROUTINE TABLE (BASIC_LEQ. TABLE, 
P OPERATOR_ROUTINE (T, T, L> LEG_T_T). 
P SPERATOR -ROUTINE (B, 8, L. LEQ7B"8), 
p OPERATOR-ROUTINE (W, W, L, LEQ-W"W), 
P ERATOR-ROUTINE (L, L, L, LEQ"L"L), 
P OPERATOR-ROUTINE (F, F, L, LEQ-F-F), 
P OPERATOR-ROUTINE (D, D, L, LEQ"D"D), 
P OPERATOR-ROUTINE (G, G, L, LEQ"G-G), 
P OPERATOR-ROUTINE (H, H, L. LEQ"H“H) 
OPERATOR-ROUTINE (P, P, L, LEQ"P~P)5; 


! The logical operators .AND., .OR., .EQV., .NEQV., .NOT. can be applied 
! only to integer data types. 


Define the Operator Routine Table for BASIC not. 


OPERATOR_ROUTINE TABLE (BASIC_BIT_NOT TABLE, 
OPERATOR_ROUTINE (8, 8, 8. BIT_NOT_B), 
OPERATOR-ROUTINE (W, W, W. BIT-NOT—w) 

OPERATOR-ROUTINE (L. L. L. BIT“NOT“L)5; 


vvvd 
ce ee ee em ce me me ce me ee a 8 ek ad a at ad a ed ed ot dd = dd 


Define the Operator Routine Table for BASIC and. 


vvuv 


NE (WU, W, 


OPERAT OR-ROUT W, » Bite ~AND-U"W) 
OPERATOR-ROUTINE (L. L. L. BIT- 


“ANDIL"L)S; 
Define the Operator Routine Table for BASIC or. 
| 
} 
} 


OPERATOR_ROUTINE Aa a (Basic Bit OR_TABLE, 
OPERATOR_ROUT! BIT_OR_B 6). 
OPERATOR~ “ROUTINE ( > BITTOR“W-w) 
OPERATOR~ROUT INE ts t: - BIT“OR“L“L)5; 


ee ee ee ee ce me ee ee me ce me eB ee ee ee me me te a a ed ad ed od ed ed dd od 
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! Define the Operator Routine Table for BASIC xor, neqv 
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' 
p OPERATOR_ROUTINE_TABL (BASIC BIT XOR_TABLE, 
p OPERATOR_ROUT is. 8. 8 BIT_XOR_8 8). 
P OPERATOR-ROUTINE (W, W, W, BIT-XOR-W-w) 
OPERATOR “ROUTIN te L. L, BITIXOR“L“L)5; 


Define the Operator Routine Table for BASIC eqv. 


OPERATOR_ROUTINE TABLE (BASIC_BIT_EQV TABLE. 
OPERATOR_ROUTINE 8, 8. 8; BIT_£Q0_8 6 
QPERATOR-ROUTINE (¥ OS BIT EQV-UrG). 

RATOR-ROUTINE (L, t Li BITTEQV“L“L)S; 
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Define the Operator Routine Table for BASIC imp. 


OPERATOR Pout ine te a (BASIC_BIT_IMP_TABLE, 
OPERATOR_ROUTINE . 6. 8, BIT_IMP_B_8), 
OPERATOR” “ROUTINE ( Ww, BIT ~1nP. *t: WP 


OPERATOR_ROUT INE (L t ™ BIT=1 
; Define the Operator Information Table for BASIC. 
OPERATOR_ INFO_TABLE (BASIC_OPINFO_TABLE, 


! The following are apretuests tables that accept all numeric data types, 
i including complex. They thus go through the larger HIER] table, and 
need to specify an incompatibility table. 


OPERATOR NEO ENTRY (ADD, BASIC_ADD_TABLE, BASIC_HIER1_TABLE, 
OPERATOR. INFO, ENTRY (SUBTRACT, BASIC_SUB_TABLE, BASIC_HIER1_TABLE, 
OPERATOR_INFO_ENTRY (MULTIPLY, BASIC_MUL_TABLE, BASIC_HIER1_TABLE, 


OPERATOR INFO_ENTRY (DIVIDE, BASIC_DIV_TABLE, BASIC_HIER1_TABLE, 


OPERATOR INFO, NTRY (UNARY_PLUS, BASIC_UNARY_PLUS_TABLE, 
BASIC_H TABLE. TABCEBASE), 
OPERAT on ese GATRY (UNARY AIMS *BASIC_UNARY _MINUS_TABLE, 
BASIC_HIER1 TABLE, TABLEBASES 
OPERATOR TOR-INEO,ERTRY Eboure OF, BASIC_POWER_TABLE, BASIC_HIER1_TABLE, 


> 
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! The relationals accept o}t au numeric types and thus need the larger 
: hierarchy table. There ncompatibility table. 


OPERATOR Aor eancey ENTRY (EQUAL, BASIC_EQL_TABLE, BASIC_HIER1_TABLE, 
OPERATOR INFO. ENTRY (NOT_EQUAL, BASIC_NEQ_TABLE, BASIC_HIER1_TABLE, 
OPERATOR INFO_ENTRY (GTR_THAN, BASIC_GTR_TABLE, BASIC_HIER1_TABLE, 


TABLEBASE 
OPERATOR_INFO_ENTRY (GTR_EQUAL, BASIC_GEQ_TABLE, BASIC_HIER1_TABLE, 
TABLEBASET, 
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oP -Sep- 2:32:25 Ax-11 Bliss-32 V4. 
Mitetity ig Fenn 98 90:32:82 DEBUG.SR aciopeevacor. 33. 31 
OPERATOR LED ENTRY (LSS_THAN, BASIC_LSS_TABLE, BASIC_HIER1_TABLE, 
OPERATOR INFO, ENTRY (LSS_EQUAL, BASIC_LEQ_TABLE, BASIC_HIER1_TABLE, 


: The logical  feecezers accept only integer quantities so they can 
yee the +s ’ fest h ore table. They also do not need an 
ncompatibility table. 
OPERATOR INFO_ENTRY (BIT_NOT, BASIC_BIT_NOT_TABLE, BASIC_HIER2_TABLE, 
om NFO_ENTRY (BIT_AND, BASIC_BIT_AND_TABLE, BASIC_HIER2_TABLE, 
win? NFO_ENTRY (BIT_OR, BASIC_BIT_OR_TABLE, BASIC_HIER2_TABLE, 
ton 1 INFO_ENTRY (BIT_XOR, BASIC_BIT_XOR_TABLE, BASIC_WIER2_TABLE, 
OPERATOR_INFO_ENTRY (BIT_EQV, BASIC_BIT_EQV_TABLE, BASIC_HIER2_TABLE, 
TABLEBASEY 


OPERATOR. INFO_ENTRY (BIT_IMP, BASIC_BIT_IMP_TABLE, BASIC_HIER2_TABLE, 
TABLEBASED, 


wr 


URS 


oO 
wa 


! The CONVERT operator gets called to convert gubegripss to integer 
7g type afd to convert expressions in F EPEAT statements 
! to integer type. It can thus use the smaller HIERS table to specify 
the rules for conversion to integer. 


OPERATOR_INFO_ENTRY (CONVERT, TABLEBASE, BASIC_HIER2_TABLE, 
TABLEBA 
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4 
4 
rr 
: 
03 Sey, 
0 ! The DEPOSIT operator oy called on the DEPOSIT one it has 
11 ! its own hierarchy table which allows ony numeric type t 
9 \§ ! converted to any other numeric type. The incompat lity a 
90 1 ! however, still prevents depositing D types into G types and 
BS 13 : vice versa. 
38 1 OPERATOR_INFO_ENTRY (DEPOSIT, TABLEBASE, BASIC_HIERD_TABLE, 
Be 18 TABLEBASED, 
1 
38 : ' The IDENTITY ORR To. viet’ called att the end ie an EVALUATE command 
98 3 1 i to apply me fF routine and then appl 1 the appropriate 
99 § i type mappings. thts- if ensure that EV BU will print as a signed integer, 
<3 z for example. 
: § 5 The identity operator does not require any tables. 
iss 3 OPERATOR_INFO_ENTRY (IDENTITY, TABLEBASE, TABLEBASE, TABLEBASE) 
4 5 ; 
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BLISS OPERATOR INFORMATION TABLES 
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e.g.. XCfieldname]. No operations are allowed on 
fieldnames so this type does not appear in the 


tables. 
ZI - instruction, ZLINE 10 
ZEM = entry mask, e.g., EV ROUT_NAME 


w 


4 
4 
re 
G4 This section a the Peereter Routine and Type tables needed to 
re evaluate expressions in BLISS. 
ats | 
a13 ! Here is the List of ty es that we may get back from DBGSPRIM_TO_VAL 
ci 29 when we pass it a BLISS primary: 
4g i 8 = byte signed 
1 4 } BU = byte unsigned 
§ 44 : v - word signe 
45 ‘ WU = word unsign 
& rf : L = longword signed 
5 % : LU = longword unsigned 
$ re ‘ Vy - aligned bitstring. e.g., the primary X<0,5,0> 
& ! SV = signed aligned bitstring. e.g., X<0,5,1> 
39 4 vu - unaligned bitstring. ©-9-. x<1,5,0> 
1 ! SVU - signed unaligned bitstr ng. e@.g., X<1,5,1> 
26 : PTR = we get this back for REF items 
37 z - “unknown'’ = we get_this back for BLISS field names 
at 
3s ii 
5 ‘ 
Be 


2S 


; 
$B 
1 268 ! Define a table that maps PTR type into integer. Type PTR can come 
§ ; H back from REF objects. 
4 P TYPE_MAPPING TABLE (BLISS_MAP_TABLE, 
5 TYPE_GRAPH_EDGE (PTR,C)); 
$ ! Define the Type Conversion Information Table for BLISS. 
: ! This points to the above mapping table. 


CONVERSION_INFO_TABLE (BLISS_CVTINFO_TABLE, 
CONVERSION_INFO_ENTRY (BCISS_MAP_TABLE, TABLEBASE)); 


A SFUSUSUSUSISISI ISIN 


FARES ISVS NFU Soe Vee 


' Define the Type Hierarchy Table. All operations are done gn signed longwords. 
: Thus we provide a path for all types to be converted to signed longwords. 


TYPE_HIERARCHY_TABLE (BLISS_HIER_TABLE, 
viene ENE 


wvuvUUU 
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PE GRAPH DGE 
TYPE” GRAPH” EDGE 
TYPE ~ GRAPH” EDGE 


! DBGSPRIM_TO_ADDR always returns type L. 
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GEVALOP 16-Sep-1 2:32:25 AX-11 Bliss-32 v4.0-74 e 1 
idee gre t8Be 90:82:52 | HOMES Oh sSacevacoe oss. ae 43) 
H 1686 1587 1 
3; 146 1 1 ! Define the T Hierarchy Table for DEPOSIT. 
: 146 1 } ! This 1s a cltculer raph which ing \udes all types that can be obtained 
; 1oo8 1 : from calling PRIM_TO_VAL on a BLISS primary. What this means is that 
; 106 } ; ! any type is convertible to any other type on a DEPOSIT. 
: 1259 Pi j 1 TYPE_HIERARCHY_TABLE (BLISS_HIERD_TABLE, 
3 pe P1594 1 TYPE_GRAPH_EDGE (8, BU); 
3 147 Pp 1595 1 TYPE_GRAPH_EDGE (BU, W), 
3 1474 P 1 38 1 TYPE_GRAPH_ (WwW, WU), 
3 1475 P 1 1 TYPE_GRAPH_EDGE (WU, L), 
; 1078 P 1 4 ! TYPE_GRAPH_EDGE (L, LU) 
: 147 P 1 TYPE-GRAPH-EDGE (LU, vuS 
; 1478 P 1 1 TYP =GRAPH-EDG (vu, SvuS, 
3 14 P 1 1 TYPE_GRAPH_EDGE (SVU, SV), 
3 14 P 1602 1 TYPE _GRAPH_EDGE (SV, V), 
3 12 1 Pe 1 5 : TYPE_GRAPH_EDGE (V, B), 
: 16 1605 1 : 
3 14 1 1 !e4 
3 1485 1607 1 ! ALL of the arithmetic operations below are defined to work on signed 
3 Pt ' ! : lLongwords. 
: 1488 1610 1 ' Note that only the fetch operator (.) does an implicit fetch for BLISS. 
3 Pe 4 13 : ; This 7 ey example, that 
: 1491 1818 1 i will add the addresses of A and B, not the values. Addresses are obtained 
3 1398 1ei9 : : from the DBGSPRIM_TO_ADDR, and their type is always L. 
3 1494 1ei8 1! If the fetch is done, the DBGSPRIM_TO_VAL routine gets called, and the value 
3 1495 161 1! is pulled from that value descriptor and put into the result value 
3 1608 1618 1 ! descriptor, which is of type longword. Thus the result of the fetch 
3 149 1619 1 ! operator is always longword. one extraction of byte, word, bitfield, etc. 
3 1008 } : values is done inside of DBGSPRIM_TO_VAL. 
: 1500 1622 1 ! For example, 
: 1501 16. a 1! “EVAL -W + .BU ! Wis word otgnes BU is byte unsigned 
: 130¢ 1624 1! The .W operator is first applied. DBGSPRIM_TO_VAL is called and it 
3; 150 1625 1 ! extracts the word quantity for WU, sign extends it to a longword, 
3 1 74 16. $ 1 ! and places the longword value in the Value Descriptor. We copy that 
: 1505 16. 1 ! value into the Value Descr pter contain ng the result of the .W operation. 
3 1 5] 16 3 1 ! Similarly we obtain a type L descriptor with the value of BU, properly 
21 16 1 ! zero-extended. These are then added as longwords, and the result is 
3 } 1 ! ; a longword. 
; 1510 16 ; 1 ! So the upshot of all this is that none of the operations except FETCH 
3 HE 16 : : ever see anything except dtype L. 
: 151 1635 1_ 
3 ' i i \ : Define the Operator Routine Table for BLISS addition. 
: 1 \¢ P 16 1 OPERATOR_ROUTINE He a (BLISS_ADD_ TABLE 
: ! ! 1ee 1 OPERATOR_ROUTINE (L, L, L> ADB_L_L)S; 
: 1 19 tea} 1 ! Define the Operator Routine Table for BLISS subtraction. 
: 1359 & 1208 4 OPERATOR_ROUTINE_TABLE (BLISS_SUB_TABLE, 
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OPERATOR_ROUTINE (L, L, L, SUB_L_L)); 
; Define the Operator Routine Table for BLISS Multiplication. 


OPERATOR_ROUTINE TABLE (BLISS_MUL_TABLE 
OPERATOR_ROUTINE (L, L, L> MUC_L_L)S; 


: Define the Operator Routine Table for BLISS Division. 


OPERATOR_ROUTINE TABLE (BLISS_DIV_TABLE 
OPERATOR_ROUTINE (L, L, L> DIV_L_L)S; 


! Define the Operator Routine Table for BLISS Modulus. 
! The BLISS modulus function is actually a remainder function. 
A 


] 
OPERATOR_ROUTINE TABLE (BLISS_MOD TABLE 
OPERATOR_ROUTINE (L, L. L> REA_L_L)S; 
: Define the Operator Routine Table for BLISS arithmetic shift. 
! There is only one shift operation in BLISS. It uses the ‘**’ symbol. 
! A positive right argument indicates left shift and a negative right 
: prpunent indicates right shift. This is how the SHIFT_LEFT_L_L routine 
; behaves. 


OPERATOR_ROUTINE_ TABLE (BLISS_SHIFT_TABLE, 
OPERATOR_ROUTINE (L, L, L> SHIFT_LEFT_L_L)); 


; Define the Operator Routine Table for BLISS Equal. 


OPERATOR_ROUTINE TABLE (BLISS_EQUAL_TABLE, 
OPERATOR_ROUTINE (L, L, L> EQL_C_L)); 


: Define the Operator Routine Table for BLISS Not Equal. 


OPERATOR ROUTINE TABLE (BLISS_NOT_ EQUAL TABLE, 
OPERATOR_ROUTINE (L, L, L> NEG_L_L)S: 


: Define the Operator Routine Table for BLISS Less Than. 


OPERATOR_ROUTINE TABLE (BLISS_LSS_THAN_TABLE, 
OPERATOR_ROUTINE (L, L, L> LSS_L_LY); 


: Define the Operator Routine Table for BLISS Less Than Unsigned. 


OPERATOR_ROUTINE TABLE (BLISS_LSSU_THAN_ TABLE, 
OPERATOR_ROUTINE (L, L, L> LSS-LU_LO)); 


; Define the Operator Routine Table for BLISS Greater Than. 


OPERATOR_ROUTINE_ TABLE (BLISS_GTR_THAN_TABLE, 
OPERATOR_ROUTINE (L, L, L> GTR_L_LY); 


; Define the Operator Routine Table for BLISS Greater Than Unsigned. 


OPERATOR_ ROUTINE TABLE (BLISS_GTRU_THAN_ TABLE, 
OPERATOR_ROUTINE (L, L, L> GTRILU_LO)); 


Pee 135 
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1 Define the Operator Routine Table for BLISS Less Than or Equal. 
OPERATOR_ROUTINE TABLE (BLISS_LSS EQUAL TABLE, 


¢ OPERATOR_ROUTINE (L, L, L> LEG_L_L)DS; 
¢ : Define the Operator Routine Table for BLISS Less Than or Equal Unsigned. 
Pp OPERATOR_ROUTINE TABLE (BLISS_LSSU_EQUAL_TABLE, 
OPERATOR_ROUTINE (L, L, L, LEQ"LU_LUJ); 
9 


H Define the Operator Routine Table for BLISS Greater Than or Equal. 


OPERATOR_ROUTINE_TABLE (BLISS_GTR_EQUAL_TABLE, 
OPERATOR_ROUTINE (L, L, L> GEG_L_LDY; 


: Define the Operator Routine Table for BLISS Greater Than or Equal Unsigned. 


OPERATOR ROUTINE TABLE (BLISS_GTRU_EQUAL_TABLE, 
OPERATOR_ROUTINE (L, L, L> GEQ"LU_LUD); 


: Define the Operator Routine Table for BLISS Bitwise And. 


OPERATOR ROUTINE TABLE (BLISS_BIT_AND_ TABLE 
OPERATOR_ROUTINE (L, L. L> BIT_AND_L_L)S; 


: Define the Operator Routine Table for BLISS Bitwise Or. 


OPERATOR_ROUTINE TABLE (BLISS_B1T_OR_ TABLE 
OPERATOR_ROUTINE (L, L, L> BIT_OR_L_L)S; 


: Define the Operator Routine Table for BLISS Bitwise Xor. 
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610 ! 
611 Pp OPERATOR ROUTINE TABLE (BLISS_BIT_XOR_TABLE 
61¢ OPERATOR_ROUTINE (L, L, L> BIT_XOR_L_L)S; 
gi8 : Define the Operator Routine Table for BLISS Bitwise Eqv. 
61 p OPERATOR_ROUTINE TABLE (BLISS_BIT_EQV_TABLE 
ei 33 OPERATOR_ROUTINE (L. L, L> BIT_EQU_L_L)S; 
ei a : Define the Operator Routine Table for BLISS Unary Plus. 
6 1 p es OPERATOR_ROUTINE_TABLE (BLISS_UNARY_PLUS_TABLE, 
6 : P 1745 ' The following are not Language dependent types. This is needed for DEBUG 
6 : . 28 : types. For example, DEP/QUAD L= +1. 

$ e $8 . OPERATOR_ROUTINE (8, 6, 8, UNARY_PLUS_B), 
6 P 174 OPERATOR_ROUTINE (WU, W, W, UNARY_PLUS_W), 
6 P ? A a 3 (F, F, F, UNARY_PLUS_F), 
6 p OPERATOR_ROUTINE (D, D, D, UNARY_PLUS_D), 
3 p § op a (G, G, G, UNARY_PLUS_G), 

P ERATOR-ROUTINE (H, H, H, UNARY-PLUS_H), 

6 P 4 TOR_ROUTINE (P, P, P, UNARY_PLUS_P), 
6 fe 5 OPERATOR_ROUTINE (Q, Q, @, UNARY_PLUS_Q), 
° . § TOR_ROUTINE (0, 0, 0, UNARY_PLUS_O), 


vOusvOo if Feo 1944 99:32:82 Yoaus. See Soaae varor.083;1 


: } 172 } OPERATOR_ROUTINE (L, L, L, UNARY_PLUS_L)); 

3 i 7 i ! Define the Operator Routine Table for BLISS Unary Minus. 

; 1640 p if i OPERATOR_ROUTINE_TABLE (BLISS_UNARY_MINUS_TABLE, 

: 164 P 17 1 ! The following are not language dependent t . This i ded for DEBUG 
: 1848 . 1? 5 : types. for Snanple, pep/ eu AB = + ih a oy eaeers Se ee 
3 1645 P 1969 1 OPERATOR_ROUTINE (8, 8, B, UNARY A INUS_B), 

3 1 F 1098 1 OPERATOR ROUTINE (W, W, W, UNARY_MINUS_W), 

; 19% P 176 1 OPERATOR notin eo Fa Fe UNARY-RINUS~ F), 

3 1 P 1 Y 1 TOR-ROUTINE (D, D, D, UN ART FNS 0} 

3: 1646 P1771 1 OPERATOR “ROUTINE (G, G, G, U Any AIS G), 

3; 1650 P 1776 1 OPERATOR-ROUTINE (H, H, H, UNA RV _AINUS_H}. 

3; 1651 P1775 1 OPERATOR _ROUTIN He (P, P, P, U eh -MINUS_P), 

3; 16 ¢ P1774 «#1 OPERATOR, ROUTIN (Q, Q@, Q, UNARY_MINUS_Q), 

; 1927 : 102) ' OPERATOR ROUTINE (0, 0, 0, UNARY “MINUS “0), 

3 1655 1777 i OPERATOR_ROUTINE (L, L, L, UNARY_MINUS_L)); 

3 1687 1443 \ Define the Operator Routine Table for BLISS Bitwise Not. 

: 1659 P 1781 1 OPERATOR_ROUTINE TABLE (BLISS _BIT_NOT TABLE, 

; 1969 \? ¢ : OPERATOR_ROUTINE (L, L. L, BIT_NOT_L)); 

: 166¢ 1784 1! Define the Operator Routine Table for ,BLiss bit selection. 

3: 166 1785 1! The bit-select operator X<p,s.,e> can be app lied to 

3 1664 17 1! BLISS ex ross ten. It goes through the DBGSBLISS _BITSE ECT 

: 199? iy i ' : routine in DBGEVALOP. 

: 1667 1789 1! The <p.s.e> operation can be uloued as just modifying t 

3; 1668 1 1 ! address given by X. That is, X can be any 6 BL ¥r ri don 

3 1o82 1791 1! ", ene result ot all BL Iss euarece ons is a longword. 

3: 1670 1738 1! ft he BO, $,e> expression does hose a fetch associated with 

: 167) aS : ; t, the value of X<p,s.e> is Jose x X+p/ 

; 1878 1795 1! If there is a fetch, may what haggens ts $: 

3: 1674 1796 1! (1) The <p,s.e> operator is done rst. The poseny 135 MITSELECT routine just 
3 1675 1797 1! peuice s oar the Feast tae inside of DBGEVA 

8 lore 1798 1! Noth ing ts one with it until the fetch. 

: 167 1 1! (2) the extraction of the BLISS field is 

3: 1678 1800 1! one at the evaluation of the fetch operator. (DBGESLISS_INDIRECTION 
; 44 : 1 ! n > tae DBGEVALOP module.) 

: 1681 P 1 i 1 OPERATOR_ROUTINE He (BLISS_BITSELECT_T yous. 

; ; { : : OPERATOR_ROUTINE (L, L, L. BITSELECT)) 

: 1 1 1 ! Define the rator Routine Table for 8 ae indirection. 

: 1685 i 1 ! Indirection is the only op voter otet - l pes PRIM_TO “att, to do 

21 1 1! the implicit fetch, so it is wey ee that may See all the possible 
31 1 1: dtyees” that we may get, back tren : BLISS “primary. We thus include 

3% 1 \? 1! a dtypes where goal to do a fetch.(E.g.. .ROUT-NAME is not 

: 12 ! ' ! legal. so that is not coon 

: 1691 Pp 1 8 1 OPERATOR_ROUTINE_TABLE (BLISS. IN DIRE CT LTABLE, 

3 1692 P 1814 1 OPERATOR_ROUTINE (B, B, L> INDIRECT_LU 
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; 1695 P1815 1 ATOR ROUTIN (W, W, L, INDIRECT , > 

:1 3 Pj 1 1 OPERATOR-ROUTINE (BU, BU, L, INDIRECT_LU), 

: 169 P1817 1 RATOR-ROUTINE (WU, WU, L, INDIRECT-LU), 

: 1696 P1818 1 OPERATOR-ROUTINE (LU, LU, L, INDIRECT Lu). 

: 169 P1819 1 OPERATOR-ROUTINE (V, V, L, INDIREC My : 

: 169 Pi 1 OPERATOR-ROUTINE (VU, VU, L, IND TREC LO), 

: 16 Pi 1 OPERATOR-ROUTINE (SV, SV. L, INDIRECT LU) . 

: 1 P 1 : 1 OPERATOR-ROUTINE (SVU, SVU, L, INDIRECT LUD, 

3 17 : i ; } OPERATOR-ROUTINE (L, L. L, INOIRECT_LUDS; 

: 17 1825 1 

3 1706 } $ } } Define the Operator Information Table for BLISS. 

: 1709 p 1 8 i OPERATOR_INFO_TABLE (BLISS_OPINFO_TABLE, 

: 17 P 1850 1 ! ALL of the arithmetic operators use the same hierarchy table, 

: 1709 P 1831 1 ! BLISS_HIER_TABLE. They all have the fetch flag turned "° meaning 

: 1710 P 1 ; 1 ' they do address ari thaet § in the absence of an expt cit fetch. 

; 12 4 : ! : There is not incompatibility table for any of the BLISS operators. 

: 171 P1835 1 OPERATOR_INFO_ENTRY 

: 1714 P 1 1 UNARY PLOS, BLISS_UNARY_PLUS_TABLE, BLISS_HIER_TABLE, TABLEBASE, FALSE), 
3 1715 P 1 1 OPERATOR_IRFO_ENTRY 

: 1716 Pi 3 1 Y_MIRUS, BLISS_UNARY_MINUS_TABLE, BLISS_HIER_TABLE, TABLEBASE, FALSE), 
> 171 P 1 OPERATOR_IRFO_ENTRY 

: 1718 P 1840 1 (BIT-NOT, BLISS_BIT_NOT_TABLE, BLISS_HIER_TABLE, TABLEBASE, FALSE), 

: 1719 P1861 1 OPERATOR~INFO_ENTRY 

: 1720 P 1 : 1 (ADD; BLISS ADD_TABLE, BLISS_HIER_TABLE, TABLEBASE, FALSE), 

: 1721 P 1 OPERATOR_INFO_ERTRY 

: 17 : P 1844 1 (SUBTRACT? BLISS_SUB_TABLE, BLISS_HIER_TABLE, TABLEBASE, FALSE), 

: 17 P1845 1 OPERATOR. INFO_ENTRY 

: 1726 P 1 4 1 (MULTIPLY> BLISS_MUL_TABLE, BLISS_HIER_TABLE, TABLEBASE, FALSE), 

> 1725 Pj 1 OPERATOR_INFO. EN 

: 17 6 P 1848 1 (DIVIDE, BLISS DIV_TABLE, BLISS_HIER_TABLE, TABLEBASE, FALSE), 

: 17 P1849 1 OPERATOR_INFO_ENTRY 

; 7 8 p 1 30 i OPER REMAINDER yBk1SS.MOD_TABLE. BLISS_HIER_TABLE, TABLEBASE, FALSE), 

: 7 p 3 i SPE TeET nMFF' BLISS SHIFTTABLE, BLISS_WIER_TABLE, TABLEBASE, FALSE), 

: 17 ¢ P1854 1 (EQUAL, BCISS EQUAL_TABLE, BLISS_HIER_TABLE, TABLEBASE, FALSE), 

: 17 P1855 1 OPERATOR_INFO_ENTRY 

; 17 $ 4 1 26 i OPER MOL -RGUAT, BL 1SS_NOT EQUAL TABLE, BLISS_HIER_TABLE, TABLEBASE, FALSE), 
: 17 4 1 38 i OPER IR THAN: (BL ISS_GTR_THAN. TABLE, BLISS_HIER_TABLE, TABLEBASE, FALSE), 

: 7 p i i entSIRe HAND, ,BLISS.GTRU_THAN_TABLE, BLISS_HIER_TABLE, TABLEBASE, FALSE), 
: 1740 p 2 OPER TSS Trans pet ESS.LSS.THAN_ TABLE, BLISS_WIER_TABLE, TABLEBASE, FALSE), 

: 1748 Pp 1 1 tts thant ISS_LSSU_THAN_TABLE, BLISS_HIER_TABLE, TABLEBASE., FALSE), 
3 1746 P 1865 1 OPERATOR” INFO-ENT 

: 1766 P 1 1 open oie QUA, ISS_GTR_EQUAL_TABLE. BLISS_WIER_TABLE, TABLEBASE, FALSE), 
: 1746 Pp 1 } (GTREQUAC_U, BLISS_GTRU_EQUAL_TABLE, BLISS_HIER_TABLE, TABLEBASE, FALSE). 
3 1747" P 1 1 OPERATOR~ INFO_ENTRY 

5 1748. Pp 1 1 (LSS“EQUAL BLISS_LSS_EQUAL_ TABLE, BLISS_WIER_TABLE, TABLEBASE, FALSE). 
> 1749 P 1 1 OPERATOR~INFO_ENTRY 
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16-Sep-1984 00:32:25 AX-11 Bliss-32 V4.0-7 
ig-$en-1 98 AS a CER ae ER 
(LSS EQUAL Us BLISS_LSSU_EQUAL_TA HIER.TABLE, TABLEBASE, FALSE), 
oventtSS-f igs U, BLISS_LSSUEQUAL TABLE, BLISS_HIER_TABLE, TABLEBASE, FALSE 


OPERATOR“ INE =fNDs put 5 -BIT_AND_TABLE, BLISS_HIER_TABLE, TABLEBASE, FALSE), 
OPER Tonnsato aL i pT -OR_TABLE, BLISS_HIER_TABLE, TABLEBASE, FALSE), 
CBITTKOR. “Briss -BIT_XOR_TABLE, BLISS_WIER_TABLE, TABLEBASE, FALSE), 
OPER IT iM" “Briss -BIT_EQV_TABLE, BLISS_HIER_ ae “age “eat 
OPERATOR~ “rb. ENTRY~ 7 . 
(BITSELECT, BLISS_BITSELECT_TABLE, BLISS_HIER_TABLE, TABLEBASE, FALSE), 
! CONVERT gets called to convert subscripts . Oe ingesre type. 
It also gets called to convert expressions in FOR loops or 


q 

' 

! REPEAT oats. or ey in WHILE or F eheneane. to 
: sngeger type. As far as I know, conversion 54 type L is the 
' only conversion we see for BLISs. The normal hierarchy table 
should thus be adequate. 


OPERATOR_INFO_ENTRY 
(CONVERT, TABLEBASE, BLISS_HIER_TABLE, TABLEBASE, FALSE), 


: The fetch operator is the one that has the fetch flag set to TRUE. 


OPERATOR INFO_ENTR 
CINDIRECT? BLISS. INDIRECT_TABLE, BLISS_HIER_TABLE, TABLEBASE, TRUE), 


! DEPOSIT ape its own wtorerchy table a} lowing. DEPOSIT of Rs type 

| ate any if Th ., ae flag is sf iC. false, indicating t 

ge ag gt fetch is doné on the right-hand-side of the tenes tt 
Ea: = Y will put mal address of Y into xX; DEP -Y 

i will A. "he value of Y into X 


DPERATOR_INFO_ENTRY 
(DEPOSIT, TABLEBASE, BLISS_HWIERD_TABLE, TABLEBASE, FALSE), 


The identity ry: or Mn called at the end of an evaluate if 
we still have a primary, e.g., EVAL X will call DBGSEVAL LANG. OPERATOR 
with “IDENTITY” and we can then do 9 our thing. In the BLISS ¢ 
Ade | our thing’ means calling DBGSPRIM_TO_ADDR, and oe ads nos 
e 


The reason for an ‘identity’ operator is to ensure that EVAL A 
will go through the same code paths as, say, EVAL A+*0 or EVAL +A 


The identity operator uses no tables. 


DPERATOR_INFO_ENTRY 
(IDENTITY, TABLEBASE, TABLEBASE, TABLEBASE., FALSE) 


Se 
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C OPERATOR INFORMATION TABLES 
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This section contains the Operator Routine and Type tables needed to 
! evaluate expressions in the C language. 


C constants: 
Integer: decimal, octal, hexdecimal. Double, String 


C Data sypees 
- Integer (signed. unsigned) 
char ( 8-bit byte), short (16-bit integer), int (32-bit integer) 
e £ Loating-geint numbers 
float (f_float), double (D_float) 
- Enum values 
Scalars of a user-defined type 
. cecrrere (typed) 
32-bit addresses of other variables 
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C aggregates: 
- Arra 
- Structure 


ae ee eee Sy 
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3 8 - Union 

: Expressions: 

3 5 rH - Primary 

: 18 951 . Negating Arithmetic (-E, TC applied) 

$ $3 926 ot en E of any arithmetic type. 

3; 18 § 95 Result: the arithmetic negative of the expression. (The negative gf 
: 83 328 an unsigned quantity is computed by subtracting its value from 2**32) 
; S 5 386 - Negating Logical ('E, TC applied) 

3; 18 95 E: pointer (or other address-valued —, array), or an E of any 

3; 183 338 arithmetic type. Result: the logical negative of the expression, 

: Ht 444 result type is int. 

; 9 38) - Incrementing and Decrementing Variables (--, ++) 

; § 308 - Computing address (8lvalue) 

3 964 Result: the address of the object to which the lvalue refers. 

: 4 965 (The 6 ney not be applied to register or to bit fields in structure 
: 5 368 or union). 

; ; M43 - Dereferencing Pointers (*E) 

3 : E: Pointer or other endrecsaselued # 

3 970 Result: a reference to the gb ect to which the expression points, 

3 39 32 the type of the addressed object is the type of the result. 

3 185 97 - One's complement ("E, TC applied) 

3 38 One E: integer or character at 

> 1855 97 . Additive = (+, =, TC applied) 

3 2$ 399 1. Operand: Address elon array element and a value of any integral 
3: 185 378 type can be added ; integer $ converted to an address offset by 

3; 1858 97 by integer * length of the addressed object). Result: the address 


ea ifr Feoct9Rs Q0:52:25 MNT BL ig8=52 vé0-743 


8 


e filled with a copy of E1° M 
(The result rot he rtd fy is undefined if £39 is negative, or the 
value of E2 > 32 bits) 


- Assignment, conditional, and comma (we do not support) 
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Type Cenyorsten: saperents of different types appear in an expression) 
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1. char or short (signed or unsigned) <-> int (Signed. or unsigned) 
f_float --> d_float. Char is treated as si 
¢: If either epeFond. s double, the other --> double. Result: double. 

- If either operand is unsigned, th other => xs ned. Result: uns igned. 
4. Otherwise, both operands must be soniye’ integer. 
5. Whenever an ynetqned integer and a: 2 gned nteger are combined, 

signed --> signed int --> unsigned. Result: unsigned. 
6. For some operators require integers as operands, or d ==> int. 


5 1 ! of an gbiect of the same ee 
1 ; 2. soarenss A value of any in gral type may be subtracted from a 
1 ‘ nter or address 
§ 19 ! perand: enum + ome, fr enum = enum. Result: int 
19 ! 4. If two oferqeees s of objects of the same type are abstracted. 
¢ 12 5 : the result is int 
19 ! - Multiplicative = (*, %: mod, TC applied) 
13 : : Sperende aie mod iteereks co 
1990 ! - Equality - (==, TC applied) Result: type int 
1991 : i3 Two p > ointers or r’ addresses (if they dent ity. the same storage 
7 1336 ‘ locet Ton then they are equal). 
1G 1337 2. A pointer or address can be compared with an integer. 
874 1995 i . Relational - (<, >, <=, >=, TC applied) Result: type int. 
75 128 ! same as above. “es . 
6 199 ! 
7 1998 ! - Bitwise - (8: and, “*: xor, t:or, TC applied) 
a78 444 : Operand: both must be integrals. 
880 001 : - Logical = (88: and, ‘i: or) Result: type int. 
rt O06 : Operand: fundamentatal types or a poin er, or address-valued E. 
BBS 004 ! . Shift = (<<, >>, TC ge 
884 005 ' . arene both must be inegral. the etgne~wene operand --> int, and 
885 O06 ! on, of the coouts is” the type of the left operand. 
eae she vet ue of 4 shifted to the left by E2 bits, vacated 
! are clea 
888 ! E1 >> E2: the value of EI shifted to the neds by E2 bits. Vacated 
889 : ee are eleored if £1 is unsig else, vacated bits 
1 
i 
i 
i 
f 
i 
i 
i 
q 
i 
i 
i 
i 
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i 
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! Define the Type Conporeien Information Table for C. 
910 ! C has no special rules for type conversions, so we do not have a language 
4h specific type conversion table. 
315 P CONVERSION_INFO_TABLE (C_CVTINFO_ TABLE 
gis CONVERSION_INFO_ENTRY (TABLEBASE, fABLEBASE)); 
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Define the Type ore Table for C. 
' This table defines what is refered to af the ‘usual type conversion rules’ 
in the C manual. These rules state, basically, that: 


char => longword integer 
short integer => longword integer (with the same sign attribute) 
: gignes integer => unsigned 
nteger => float 
float -> double float 


The first edge, T->B, is there so that variables declared as CHAR can 
be treated as integers, as C allows. The conversion should check that 
! the length of the char string is 1. 


We also include an edge for ENUM=>L. This will allow ony arithmetic with 
enumeration types that is also allowed for integers. This may be a more 
permissive implementation than the language allows. 


We also include V => LU, VU => LU, SV => L, and SVU => L. 
C declares components of a packed record to be of type V. VU. SV, or SVU, 
but operations on these are just integer operations. So we convert 

these to integer. 


TYPE_HIERARCHY_TABLE (C_HIER_TABLE, 
TYPE_GRAPHEDGE (T,"B), 


TYPE_GRAPH_EDGE (ENUM, L), 


TYPE_GRAPH_EDGE 
TYPE~GRAPH~EDGE 
TYPE~GRAPH~EDGE 
TYPE~GRAPH_EDGE 
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! The HIERD table defines what pairs are Legal in a DEPOSIT. 
: Give a circular graph which allows DEPOSIT any-any. 


TYPE_HIERARCHY_TABLE (C_HIERD_TABLE, 


TYPE_GRAPH“EDGE (T,"B), 
TYPE-GRAPH-EDGE (B , BU), 
TYPE-GRAPH-EDGE (BU, W) 
YPE-GRAPH-EDGE (W , WUS, 
TYPE“GRAPH-EDGE (WU, LU). 
TYPE-GRAPH“EDGE (LU. L), 
TYPE” GRAPH” EDGE (, F) 
TYPE"GRAPH"EDGE (F, DS, 
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3 1 & 1 TY Byte DGE (D, ENUM) 
31 e 1 TYPE-GRAPH_EDG CENUM. TPfR), 
3; 197 & 1 TYPE_GRAPH_EDGE (TPTR, V), 
3 3 6 P 1 TYPE _GRAPH_EDGE (V, SV) 
3 197 Pp 1 TYPE-GRAPH-EDGE (SV, vus 
; 197 P 1 TYPE-GRAPH-EDGE (VU, SVUS, 
3 132 P ; ! hye GRAPH_EDGE (SVU, T), 
: 1983 108 4 
3; 19 1 1 ! Add, subtract, multiply, dh bh unary minus 
: 13 : ; 5 } ! These accept all numer é types 
3 19 1 1 ! Define the Operator Routine vabte for C Addition. 
3; 198 4 1 ! Add also has special cases for TPTR +L, which isa special kind 
3 1338 198 : : a eee = i — the BBy 1 sca ed to the size of the 
: ; ot ie pointed-to object. 
: 1991 Pp 11g 1 OPERATOR ROUTINE Ht (C_ADD et we 
3 1336 P 2115 1 OPERATOR_ROUTINE (L, C, L> ADD_L_L), 
3; 199 P 2114 1 OPERATOR“ ROUTINE to, cu LU, Aob LU LU), 
> 199% P2115 1 OPERATOR-ROUTI 6, ADD_D_ 
3 1995 Pp 116 1 OPERATOR-ROUTINE (TPTR, LU, TPTR> AOD_TPTR_L) 
; 199% 17 1 OPERATOR-ROUTINE (LU, fPTR. TPTR, ADD-TPTR“L)S; 
: 1998 13 4 
3; 1999 120 1 ! Define the Operator Routine peers for C Subtraction. 
3; 2000 121 1! There is a special case routine for TPTR - L, which is a special kind 
3; 2001 1 § 1 ! of subtraction in which the integer is scaled to the size of the 
3 Oe 1 1 ! pointed-to object. Also, TPTR-TPTR is another special case "te which 
3 ! the result is scaled. 
Bot aes Be £4 even teste 
3; 2005 P 21 $ 1 OPERATOR_ROUTINE He (C_SUB_TABLE, 
: Doe P 21 i OPERATOR ROUTINE ht yt? SUB_LL), 
3; 200 P 21 : 1 OPERATOR | “ROUTINE te LU, sua” LU. LU), 
3 2008 P 2129 1 OPERATOR-ROUTI ‘p. "5. 0 
: P 21 1 OPERATOR_ROUT INE (TPTR, LU bay su TPTR_L) 
3 19 i : i OPERATOR-ROUTINE (TPTR, TPTR, UB_TPTR_TPTR)); 
: 201 133 1 
: 13 , ¢ ' Define the Operator Routine Table for C Multiplication. 
3 15 P 21 t OPERATOR Post ine TABLE (C_MUL_ rm 
8 1g P 21 1 ERATOR_ROUTINE (L, rt yt? fe Li L), 
3 1 P 21 3 1 OPERATOR” “ROUTINE (tO, Lu, AUC LO. LU), 
: 18 139 1 OPERATOR-ROUTINE (D, «4 MUL_D_6)); 
. 1 
3 ’ 136 : Define the Operator Routine Table for C Division. 
3 § P 2144 1 OPERATOR ROUTINE He (C_DIV_TABLE, 
3 4 P 2145 1 RAT ROUTIN it yes piv L),. 
; 5 eC 146 1 OPERATOR “ROUTINE tg 510 LO. LU), 
; $ FH i OPERATOR-ROUTINE (0, = * Div. 0.6))F 
: 149 1 
3 150 1 ! Define the Operator Routine Table for C Unary Minus (Negating Arithmetic). 
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! The following are not Lan age Gopgndent types. This is needed for DEBUG 
: types. For example, DEP/QUAD L= +1. 


OPERATOR_ROUTINE (8, 8, B, UNARY_MINUS_B), 
OPERATOR-ROUTINE (W, W, W. UNARY-MINUS_W), 
OPERATOR-ROUTINE (F, F, F, UNARY-MINUS_F), 
ATOR-ROUTINE (G. G. G. UNARY-MINUS.G), 
TOR-ROUTINE (H, H, H, UNARY-MINUS_H), 
oP RATOR-ROUTINE (P, P, P. UNARY-MINUS-P), 
OPERATOR-ROUTINE (Q, Q, Q, UNARY-MINUS_Q), 
OPERATOR-ROUTINE (0, 0, 0, UNARY-MINUS_O), 
OPERATOR_ROUTINE (L, L, L, UNARY_MINUS_L), 
OPERATOR-ROUTINE (LU, LU, LU, UNARY MINUS LU), 
OPERATOR-ROUTINE (D, D, 6, UNARY_MIRUS_D)S; 


: This table is needed for the +/=- constant. 
OPERATOR_ROUTINE_TABLE (C_UNARY_PLUS_TABLE, 


! The following are not benquege dependent types. This is needed for DEBUG 
: types. For example, DEP/QUAD L= +1. 


OPERATOR_ROUTINE (8, 8, 8, UNARY_PLUS_B), 
OPERATOR_ROUTINE (W, W, W, UNARY 


OPERATOR-ROUTIN 
OPERATOR” ROUT INE 
OPERATOR ~ROUT INE 


! Define the Operator Routine Table for C Modulus. 
!' Modulus is only get tace for integer types. 
: Note: The C Modulus function is really the remainder function. 


OPERATOR_ROUTINE TABLE (C_MOD. TABLE, 
OPERATOR_ROUTINE (L, C, L> REM_L_L), 
OPERATOR-ROUTINE (LU, LU, LU, REA_LU_LU)); 


! Relational rators. These agce t all three numeric types. 
! and also pointer type (which is Sust treated as integer). 


betine the Operator Routine Table for C Equal. 
§ gned and usigned equal are the same so they both use the EQL_L_L 
routine. 


OPERATOR_ROUTINE TABLE (C_EQL_TABLE 
OPERATOR_ROUTINE (TPTR, LO, L, EQL_L_L), 
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: P 1 E TOR_ROUTIN by TPTR, L, E ‘ LL), 

: P 1 OPERATOR-ROUTINE (TPfR, TPfR, L, aL “L0), 

: P 1 OPERATOR-ROUTINE (L, L, L, EOL_L_L 

: P 2211 1 OPERATOR-ROUTINE (LU, LU, L B a (2. 

; i OPERATOR-ROUTINE (D, 'D, L, EQL_D70)); 

: 14 «1 

3 15 1! Define = Operator Routine Table for C Not Equal. 

3 1 : |; Sig renee ane usigned not-equal are the same so they both use the EQL_L_L 
3 209 i 1! 

; P 2219 1 OPERATOR ROUTINE TABLE (C_NEQ TABLE , 

; $99 Pp 1 OPERATOR _| Roy TINE trpin LO. L NEQ_L_L), 

3; 21 P 1 OPERATOR-ROUTINE (LU, fPT Q7L"L), 

: 21 P 1 RATOR-R ui NE CTPER R, Prp tre’ L, NEQ-L_L), 

> 21 2 P 1 OPERATOR ROU INE (L, L, L, NEQ_L_L), 

3 21 P d206 1 OPERATOR-R TINE (LU, LU, L, NEQ-LL), 

3 H: ; i OPERATOR— “ROUTINE (D, 0, L, NEQ_D“D)); 

; 21 1 

3; 210 1 ! Define the Operator Routine Table for C Less Than 

3 138 : Unsigned less than used a different routine than. signed Less than. 
: 2110 P 2231 1 OPERATOR_ROUTINE TABLE (CLSS_TABLE 

> 2111 P : 1 OPERATOR_ROUTINE (TPTR, L> L. L§s_t_L), 

3 ie Pp 1 OPERATOR_ROUT INE (PTR. LU. L . L$$ Cu_cu, 

3 211 P 1 OPERATOR-ROUTINE (L, TPTR, L, LSS _C LY, 

3 2114 P 2235 1 OPERATOR-ROUTINE (LU, TPTR, L, “t8s ch tu», 

3 2115 P 1 OPERATOR-ROUTINE (TPfR, TPfR, L, LSS_C_L 

: 116 P 1 OPERATOR“ROUTINE (L, L. L. ites. c De 

3 211 Pp 1 OPERATOR-ROUTINE (LU, LU, L, LSS“LU.LU), 

: 118 1 OPERATOR-ROUTINE (D, D, L, LSS_070)); 

ait i. 

: 121 42 1! Define the Operator Routine Table for C Greater Than. 

; \ i re ' Unsigned greater than uses a different routine than signed greater than. 
3 2104 P 2245 1 OPERATOR_ROUTINE_TABL at: GTR_TABLE 

3 2105 P 2266 1 OPERATOR_ROUTINE (TPTK, L> Le GR Dey 

: 136 P 2247 1 OPERATOR-ROUT INE CIPTR, LU, ie fi" Cu_t 

> 21 P 2268 1 OPERATOR-ROUTINE (L, brR r_c tye 

> 2t P 2269 1 OPERATOR-ROUTINE (LU TPTR, be sore ch tu), 

> 21 P 2250 1 OPERATOR-ROUTINE (TPfR, Theat 6TR_C_L 

: 21 P 1 OPERATOR-ROUTINE ie ot ister c aay 

: 21 Pp 1 OPERATOR-ROUTINE (LU, LU, eth “LU’LUD, 

: gl : > OPERATOR-ROUTINE (D, D, L,. “eh 070)3; 

3 21 5 1 

3 2135 $ 1 ! Define the Operator Routine Table for C Less Than or Equal To. 
3 ei 1/ Unsigned less than/equal to uses a different routine than signed 
3 } 3 \ less than/equal to. 

: 21 p 1 OPERATOR _ROUTINE_TABLE (C_LEQ_TABLE 

3 2140 P 1 OPERAT TOR_ROUT INE (TPTR, Lo L, LEQ LL), 

> 2141 Pp 1 OPERATOR-ROUTINE (TPTR, LU, L, LEG CU_cu), 

: 148 P 1 OPERATOR-ROUTINE (L, TPTR, L, LEQ C LY, 

> 216 P 1 OPERATOR-ROUTINE (LU, TPTR, CL, LEG_CU_CUuD, 
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3 2146 P 2 OPERAT pout in eed re af LEG. LL), 

3 2145 P 1 OPERAT “ROUTIN (L, act 

; 146 Pa 1 OPERATOR_ROUT IN (to,et +" a “LU‘LU), 

$ 1? é : OPERATOR- ROUT! (D, Do ~*: “D)3; 

> 214 

: 21 7 i ! Define the Operator Routine Table for C Greater Than or Equal. 
3; 21 72 1 ! Unsigned greater than or equal to uses a different routine than 
3 } g f } signed. greater than or equal to. 

> 2154 P 2075 1 OPERATOR_ROUTINE TABLE (C_GEQ_TABLE 

: 2155 P f 1 OPERATOR -ROUTIN TPTR, Li A GEQ_L L 

3 21 $ ia 1 OP RATOR_ROUT NE (TPTR L, My cut 

3 21 P A: 1 OPERATOR-ROUTINE (L, FBTR” ac ty 

: 21 y P 1 OPERATOR-ROUTINE (LU 2 e7 need ct tu), 

: 21 & 1 TOR-ROUTINE (TPfR, 1? fr GEQ_C_t 

> 2160 P 2081 1 OPERATOR-ROUTINE (L, L, at Cu), 

3 2161 Pp ; 1 OPERATCR ROUTINE (LU, tut *L GeO. =} “LUD, 

: 16¢ j OPEFATOR-ROUTINE (DD, L, GEQ_D7D)); 

: $187 $4 

: 2165 1! Bitwise operators. 

: 166 8 1+ i These accept only integer data types (no float). 

: 138 89 } Define the Operator Routine Table for C Bitwise And. 

; 190 P 2291 1 OPERAIOR_ROUTINE TABLE (C_B1T_AND TABLE, 

3 2171 e 3 1 OP:RATOR_ROUTINE C. L> BIT_AND_LL), 

3 176 95 1 OPERATOR “ROUTINE tS, cu, LU, ait ONS a’ *L)): 

: Siz 3 | 

: Hy 3 ' : Define the Operator Routine Table for C Bitwise Or. 

: 179 Pp 38 1 OPERATOR ROUTINE ryABLe (BIT OR pABLe. 

3 178 ? 1 OPERATON _R T, LF BIT_OR_L_L), 

: ; ; ; OPERATOR” “ROUTINE te, cu, Z 61T ~OR_ L.L)); 

> 2181 1 

3 ; § ' Define the Operator Routine Table for C Bitwise Xor. 

: 21 P 2305 1 OPERATOR_ROUTINE TABLE (C_B1T_XOR_ TABLE, 

3: 2185 P 1 OPERATOR_ROUTINE C. t> BIT_XOR_L_L), 

3 ; } OPERATOR “ROUTINE to, iu, LU, Bit * ROR a' *L)): 

; i i Define the Operator Routine Table for C Bitwise Not (One's Complement). 
: 1 P i? * OPERATOR ROUTINE TABLE (C_BIT_NOT Tae 

3 2191 p \§ i OPERATOR_ROUTINE (L, C, L> BIT_NOT _L), 

3 136 1 1 OPERATOR— -ROUTINE (LU, iu, Lu 61T ROT: wb); 

: $132 13 | 

: 2195 16 1 ! Logical operation 

2 Hs iH : : These just d oll the "heotesn operations with TRUE <-> not zero, 

: Hb 8 1 | for mixed fate =! Loge logical operations, Me gonuers hoch to float. 
3: 21 $9 1! This is not identical to what the compl ler does. But hopefully 
: 2200 1 ! conversion to float should preserve the zero/notzero sierastattetia. 
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; 1 H sey MR n--ty get the same final answer except in obscure boundary 
; 1! i ve ise allow pointers, which are just treated as integer. 

; 5 ! : Define the Operator Routine Table for C Logical And. 

: Pp 1 OPERATOR_ROUTINE TABLE (C_AND_TABLE, 

5 P 1 OPERATOR-A ROUTI CrP TR, TPTR, L, AND tl), 

: P 1 ROUTINE (TPTR, Lu. C, AND_L“LT, * 

; 10 P 1 OPERATOR-ROUTINE (LU, fP R. L, AND“L"L), 

: 201 P 1 OPERATOR-ROUTINE (L, ANO_L_LT, 

HY \¢ e 4 OPERATOR_ROUTIN (LU, tu,‘ AAD“ Lot). 

3 13 4 ! OPERATOR-ROUTINE (D, D. L. AND_D“DY 

: 2215 1 

: 18 : Define the Operstor Routine Table for C Logical Or. 

3 221 P 1 OPERATOR_ROUTINE_TABLE (C_OR_TABLE 

3 3 P ? 1 OPERATOR ROUTINE CIPTR, Tete OR_L_L), 

3 2220 P 1 OPERATOR-ROUTINE ( ; “6 “LLY, 

> 2201 P 2 1 OPERATOR ROUTINE (LU. 7 oh oR “L7L). 

3 ¢ P 4 OPERATOR_ROUTINE (L, 3. 

H Pp 4 1 ERATOR_ROUTINE (LU, t8 

; 4 é OPERATOR-ROUTINE (D, ew "Ube aD bs}. 

; } 

; ; 8 \ Define the Operator Routine Table for C Logical Not. 

: 2229 P 2350 1 OPERATOR_ROUTINE TABLE (C_NOT_TABLE, 

3 Pp a: os OPERATOR ROUTINE (TPTR, TPTR, L, NOT Aj. 

3 1 P § 1 OPERATOR” ROUTINE (L, L, yt TL), 

$ § P i OPERATOR ROUT INE (Lu, L, NOT b, 

; : ; OPERATOR ROUTINE (D, ‘. me NOT T_03); 

3 2235 4 1 

3 1 ! Shift operators. 

8 8 ! ! These accept only integer types. 

; i0 ’ : Define the Operator Routine Table for C Left Shift. 

3 2261 P : 1 OPERATOR_ROUTINE TABLE (C_SHIFT_LEFT_TABLE, 

3 *g e j OPERATOR_ROUTINE C. L. SHIFT"LEFT LL), 

H ve 2 \ OPERATOR™ “ROUTINE ito, tut “LU, SHIFT Perr at *L)): 

> 2245 i 

3 “8 1 ! Define the rator Routine Table for C Right Shift. 

: 224 1! Unsi ote t shift is different from signed. For unsigned righ 

3 28 1 oe -.we always shift in zeros. For signed right shift, we Sh ta 
: & : n copies of the sign bit. 

: 39 P 1 OPERATOR_ROUTINE_TABL AG SHIFT_RT TABLE. 

5 26 P 1 OPERATOR_ROUTINE C, L. SHIFT_RT LL), 

: z ! OPERATOR- “ROUTINE (LU, tut “LU, SHIFT “rT -LU_LU)); 
3 2255 1 

3 4 \ : Define Operator Routine Tables for +#X X++ --X Xe= | 
2 * | 
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NE_T ; ( INCR_TABLE, 
ROP RATOR_ROUTINE (L, C, L> PRE-INCR t). 
OPERATOR-ROUTINE (LU, LU, LU, PRE_IRCR.LU), 
OPERATOR-ROUTINE (D, 0, 6, PRE_INCR_D) 
OPERATOR-ROUTINE (TPTR, TPTR, TPTR, PRE_INCR_TPTR)) 
OPERATOR_ROUTINE TABLE (C_POST_INCR_TABLE, 
OPERATOR_ROUTI Lt, C, L, POST-INCR_L), 
OPERATOR-ROUTINE (LU, LU, LU, POST_INCR.LU), 
OPERATOR-ROUTINE (D, D, 6, POST_INCR_D) 
OPERATOR-ROUTINE (TPTR, TPTR, TPTR, POST_INCR_TPTR)); 
OPERATOR_ROUTINE TABLE (C_PRE_DECR_TABLE, 
OPERATOR_ROUTINE (L, C, L> PRE-DECR_L), 
OPERATOR-ROUTINE (LU, LU, LU, PRE DECR.LU), 
OPERATOR-ROUTINE (D, D, 6, PRE DECR_D) 
OPERATOR-ROUTINE (TPTR, TPTR, TPTR, PRE_DECR_TPTR)); 
OPERATOR_ROUTINE TABLE (C_POST_DECR_TABLE, 
OPERATOR_ROUTINE (L, LC, L,-POST-DECR_L), 
OPERATOR-ROUTINE (LU, LU, LU, POST DECR.LU), 
OPERATOR “ROUTINE (D, 0, 6, POST DECR D) 
OPERATOR-ROUTINE (TPTR, TPTR, TPTR, POST_DECR_TPTR)) 


Define the Operator Routine Table for C Address Of. 

The address-of operator will have the ag ls FLAG wah in the operator 
information table. This means thet PRIM_TO_AODR will get called. 

The value of the result will thus be the Maddress of the operand. 

The type of the result is ‘‘pointer to xxx"’, where ‘'xxx' type 
of the operand. This means that the the routine which is called 

do “‘address_of*’ must construct a typeid for the result. 


OPERATOR ROUTINE TABLE (C_ADDRESS_TABLE 
OPERATOR_ROUTINE (L, C, TPTR, ADDRESS_L)); 


size of operator. 
l table and Sotecaine 
a No be FALSE, so 

* will be called instead of 10. - This is 
ct 


because we do not need the value of the 


OPERATOR_ROUTINE TABLE (C_SIZEOF_TABLE, 
OPERATOR_ROUT! tL. C. L. STZEOF_L)); 


. a 
i Size-of will Look up the t ty eid in the ooyane. 
i the declared size of one ) Teck. Th The Ab H_F 
i PRIM ADDR PRIA_TO 
object 


! Define the rator Routine Table for C Indirection (Dereferencing Pointers). 
The indirection sperater (*) will do a pprater Sonotorense of 

i its ar ent. e type of the BA object Gopene s on the 

type o later. Ptue will have to do a symbol table lookup 

on the riper ). 


OPERATOR ROUTINE TABLE (C_INDIRECT TABLE, 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
j 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
4 
1 
3 
| 
1 
1 
1 
1 
3 
1 
' OPERATOR_ROUTINE (TPTR, TPTR, ONKNOWN, INDIRECT_TPTR)); 
1 
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(UNARY NMIAUS. (  UNARY_MINUS_TABLE, C_HIER_TABLE, TABLEBASE), 
This is needed for /Qualifier for depositing the +/- constant. 


OPERATOR INFO _ENTRY 
(UNARY_PLOS, C_UNARY_PLUS_TABLE, C_HIER_TABLE, TABLEBASE), 


: Relational operators. 
OPERATOR INFO_ENTRY 


EQUAL, C"EQL_TABLE, C_WIER_TABLE, TABLEBASE), 
NFO- ENTRY 
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1g : H Define the Operator Information Table for C. 

; ? OPERATOR_INFO_TABLE (C_OPINFO_TABLE, 

1 44 ! ALL C operators use the same hierarchy table, and have no 

re i type incompatibit ty table. 

¢ 7 H Arithmetic operators. 

4 44 OPERATOR. we ENTRY 

5 P: ADD, C_ADD TABLE, C_HIER_TABLE, TABLEBASE), 

§ 44 OPERATOR *INFOER earey 
oe8 (SUBTRA SUB_TABLE, C_HIER_TABLE, TABLEBASE), 

: 44 wenn RLINFO_EN EN Grey 
450 TIPLY; C MUL. TABLE, C_HIER_TABLE, TABLEBASE), 
451 OPERATOR INFO_ENTRY 

1 4 § (DIVIDE, C pty g ABLE. C_HIER_TABLE, TABLEBASE), 

: 43 OPERATOR IN fo EN 
454 (REMAIN oar con. TABLE, C_HIER_TABLE, TABLEBASE), 
455 OPERATOR INFO. ENTRY 
228 
45 
458 
459 
4 
4 


RE 
POO. 


ate TABLE, C_HIER_TABLE, TABLEBASE), 


1 
468 NOT-EQUAC, C_NEQ_TABLE, C_HIER_TABLE, TABLEBASE), 
6 OPERATOR INFO_ENT 
470 (LSS-THAN, C Ts. TABLE, C_HIER_TABLE, TABLEBASE), 
471 OPERATOR~ INF O_EN 
47 (GTR-THAN, C 

We EN 


FEE 
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: aes setaal eaniies, 


OPERATOR. INFO_ENTRY 
(BIT~AND, “C Bit _AND_TABLE, C_HIER_TABLE, TABLEBASE), 

OPERATOR ~INFOLER ERT 

(BIT OR t ait 70R. TABLE, C_WIER_TABLE, TABLEBASE), 


T-XOR,- Eval! -XOR_TABLE, C_HIER_TABLE, TABLEBASE), 
OPERATOR” INFO_ER 

(BIT-NOT, “ ait -NOT_TABLE, C_HIER_TABLE, TABLEBASE), 
: Logical operators. 


OPERATOR INFO_ENTRY 
(SHORT_AND, C_AND_TABLE, C_HIER_TABLE, TABLEBASE), 
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arene at OR_TABLE, C_HIER_TABLE, TABLEBASE), 
OPERATOR, IRFO_ENTRY 
(NOT? C¢ JNO NTABLE, C_HIER_TABLE, TABLEBASE), 
; Shift operators. 


OPERATOR INFO gnray 
EFT SHIF C SHIFT LEFT TABLE, C_HIER_TABLE, TABLEBASE), 
OPERATOR ATRY 


NFO_ENTR 
(RIGA NSHIFT. C_SHIFT_RT_TABLE, C_HIER_TABLE, TABLEBASE), 
: Operators with side effects. 
OPERATOR. INFO_ENTR 


(PRE-INCR> C PRE LINCR TABLE, C_HIER_TABLE, TABLEBASE), 
OPERATOR” INFO. EN 

POST_INCR, C_POST_INCR_TABLE, C_HIER_TABLE, TABLEBASE), 
OPERATOR. TNF _ENTRY 


PRE-DECR, C_PRE_DECR_TABLE, C_WIER_TABLE, TABLEBASE), 
OPERATOR” INFO_EN mR 
POST_DECR, C_POST_DECR_TABLE, C_HIER_TABLE, TABLEBASE), 


: Operators that anti on the SYMID or TYPEID. 
OPERATOR INFO me 

(ADDRESS_OF, £ ADDRESS. TABLE, C_HIER_TABLE, TABLEBASE, FALSE), 
OPERATOR I INFO_ENT 

(SIZEOF, os he TABLE, C_HIER_TABLE, TABLEBASE, FALSE), 


Indirection 
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04 OPERATOR INFO _ENTR 

(INDIRECT? C C. INDIRECT. TABLE, C_HIER_TABLE, TABLEBASE), 
09 : DEPOSIT is used to implement the DEPOSIT command. 

409 OPERATOR INFO_ENTRY 

rh (DEPOSIT, TABLEBASE, C_HIERD_TABLE, TABLEBASE), 

2i8 H CONVERT is used for things Like converting subscripts. 
414 OPERATOR INFO_ENTRY 

ei2 (CONVERT, TABLEBASE, C_HIER_TABLE, TABLEBASE), 

“i? : Ségnt ity is called at the end of an EVALUATE if we still have 
419 49 sna 

420 4 OPERATOR INFO_ENTRY 

5 $5 CIDERTITY, TABLEBASE, TABLEBASE, TABLEBASE)); 
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3: 2426 44 1! 

3 : 5 ‘3 } } COBOL OPERATOR INFORMATION TABLES 
; “59 re i 

3: 24 rk 1 ! This seccion contains the Operator Routine and Type tables needed to 
: r 4 } ; evaluate expressions in the COBOL Language. 

> 2431 1 

3; 24 § 1! The following summarizes the information in the Cont, manual, and from 
3; 24 1! our ov cobol support about data tyoes. type conversions and qperecare, 
3: 24 4 1! There is turther documentation within the tables below, describing 

; : 5 5 } exactly how we translate this into the DEBUG tables. 

; ‘ 3 i Cobol Data Types: 

3 26 § ii -ElLementar) 

3: 2440 rs 1! ptonayests, Alphanumeric: (Text string) 

: 2441 61 1! Numeric: 

3: 244 $6 1! Binary 

3 2446 65 1! PIC 9 -- PIC 9(4) COMP (Scaled Ww, Wu) 

3 2444 64 1! PIC 9(5) == PIC 9(9) COMP (Scaled L, LU) 

3 2445 65 1! PIC 9(10) -=- PIC 9(18) COMP (Scaled Q, Qu) 

3 16) $6 . 7 INDEX (L) 

3 2446 567 1! Floatin 

3 2448 se8 1! COMP- (F Loating) 

3 2449 26 1! COMP=2 (Double) 

3; 2450 570 1! Pagheg~yee taal 

3: 2451 571 1! COMP=- (Packed with/without Scaled) 
3: 245 276 1! Decimal 

3: 245 575 1! PIC 99... (Scaled NU) 

3 2454 574 1! PIC $9... LEADING SEPARATE (Scaled NL) 

3; 2455 575 1! PIC $9... LEADING (Scaled NLO) 

3: 245 278 1! PIC $9... TRAILING SEPARATE (Scaled NR) 

3; 245 ef 1 PIC $9... TRAILING (Scaled NRO) 

: re 78 i i .Group 

3 ve 3 9 : Alphanumeric (Text String) 

; ve ; § : ; -Edited data (Text String) 

3 2464 5 1 ! Expressions: 

3 2465 3 5 ae Arithmetic 

3 ves] 1! operator: + - * / (#* = not support) unary+ unerye 

3 ra 2 ! ; operand: numeric literal or numeric elementary identifier 

; “89 1! Conditional (TRUE, FALSE) 

3 2470 1! operator: = * NOT >, <, NOT < 

: ry 91 1 operand: elementary identifier. literal, or AE 

: 267 38 1! Complex Conditional (TRUE, FALSE) 

3 2476 94 1! operator: ‘ - OR 

; of? 95 : } operand: conditions 

: vi 3 \ Note: abbreviated forms are not supported. 

: a8 38 1 ' Type Conversion: 

3; 2480 1! 


voe=000 ieheo9Hs OO:9E:3E  YABSND SLUGS O82 Pat 1d) 


H 4, 1 1 ' WU==W ea2ececsooseaucad 

s 4 ¢ ; 4 ' SD LU==L eceecoecececece | 

8 4 1 ' QU==0 eceeceescesoeece |! 

3; 24 1! NU, NL, NLO, NR, NRO-i-=> P 

4 : 6 } : Deocesoweeseencoscoest} 

: 26 g 8 1/1. ALL the integer and float senevenes are picked up as packed decimal if 
: "4 o re : ; one of the operand is SD descriptor type. 

: 491 att 1/2. If one of the operand is Scaled Descriptor or Packed decimal 

: 138 ois 1! data type the operation is always done in Packed Form. The 

; ret ei? : : operation even includes the deposit. 

; 499 619 i Soin COBOL. one will have the following case: 

: 499 £19 1: Ff Ran ony to P, woke a ‘eon decimal place < pop for SC2v2 
3 2498 218 1! (which is word scaled convert P to this place h a6 s" 

3 rb $38 } : final conversion will convert this place holder to SC2vV data type. 
: 2501 621 1! EV 

g 206 ° ¢ } the "anneal is done by adding F to F. 

3 2504 624 1! EV F+P 

: 2505 : 5 ! : the operation is done by adding P to P. 

; 209 6 $ 1: DEP P=123.123 

3; 2508 6 1! in here 123.123 is picked up as packed decimal constant instead of 
5 298 ° , ; : float. 

> 2511 631 1! DEP (SD, wu) = -123 

3 21g " § ; : the value we got is the absolute value. 

> 2514 634 1! EV 1.141 

3 31? " 5 } : the operation is done in Packed form. 

: 213 6 1! Define the COBOL Specific Type Conversion Table. This allows proper 
: 218 ° : handling of COBOL Edited Data type. 

: 2520 P 2640 1 LANG_CVT_TABLE (COBOL_CVT_TABLE 

: 2521 P 641 FANG. CVT_ENTRY (COB_PICT, PICT, ANY), 

: $398 es 

: 2 5 ree: 1 ! Define the Type Co coovereten Information Table for COBOL. No rounding 
: 5 § o66 | takes place 

; : P 648 1 CONVERSION_INFO_TABLE (COBOL_CVTINFO_TABLE, 

3; 25 ! CONVERSION_INFO_ENTRY (TABLEBASE, COBOL_CVT_TABLE)); 

: H 1 et ! Define Type Hierarchy Table for COBOL. 

; j P 3 1 TYPE WIERARCHY TABLE Rt HIER_TABLE, 

: P 4 1 TYP. on ~EDGE 

3 5 P 5 IPE eR EDGE (Wee 

: Pp 4 1 "EDGE (LU, Bs, 

: P 26 1 TYPE~ ~GRAPH™ EDGE (L, P), 
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Define the Type Hierarchy Table for COBOL deposit. 


TYPE _HIERARCHY_TABLE (COBOL_HIERD ~TABLE, 
T H-EDGE (PICT, Qu), 


nN pe ss 


rahe d 


DADDIES BS SS EE EE 
OWDONAUL WIN $"QOONOus 


PAEAEAPEAAAAAaO 
> > 
rm 
\~ 4-4-4 -4-4-4-4 4-4-4 
ADAQAAAAAAAACG 
MMMMmMmMmemnrncnverny 


AAO 
wr 
MEW 
= 
< 
v0 
rar 
aoe 
PS 
mt) 
‘evens 
oo 
a 
om 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

i 

1 

1 

1 

1 

1 

1 

1 

1 T HEDGE 
1 TYPE “GRAPH EDGE 
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Define the Operator Routine Table for COBOL addition. 


OPERATOR_ROUTINE_TABLE (COBOL_ADD. TABLE, 
OPE ERATOR ROUTINE (P, Pe p> ADD_P_P). 
OPERATOR~ ROUTINE (F, F, F, ADDIF-F) 
OPERATOR-ROUTINE (D, b D, ADD"D"D)5; 


Define the Operator Routine Table for COBOL subtraction. 


OPERATOR ROUTINE TABLE (COBOL_SUB_TABLE, 
OPERATOR_ROUTINE E (P. P. Bs SUB_P_P), 
OPERATOR-ROUTINE (F. F. F. SUB-F-F) 
OPERATOR-ROUTINE (D. D. D. SUB~070)5; 


Define the Operator Routine Table for COBOL multiplication. 


OPERATOR_ROUT INE TABLE (COBOL MUL TABLE, 
OPERATOR_ROUTINE (P, Pe Bs mUC_P_P). 
OPERATOR-ROUTINE (F. F. F. MUL-F-F) 
OPERATOR-ROUTINE (D; D D; MUL"D"D)5; 


Define the Operator Routine Table for COBOL division. 
OPERATOR_ROUTINE TABLE (COBOL _DIV_TABLE, 


OPERATOR_ROUTINE (P, Fe ee DIT 4 -P). 
OPERATOR-ROUTINE (F, o DIVIFTF), 
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OPERATOR_ROUTINE (D, D, D, DIV.D.)); 7 
: Define the Operator Routine Table for COBOL unary plus. 
OPERATOR_ROUTINE_TABLE (COBOL_UNARY_PLUS_TABLE, 


! The following are not bengu 7, ap + Yea: types. This is needed for DEBUG 
types. For example, DEP/ z+ 


oh Lh pout in (8, 8, B, UNARY_PLUS_ 


ab a HS 


See SPOR SS SESES 


OPERATOR_ROUTINE (P, P, P, UNARY “PLUS ?), 
- F, F, UNARY_PLUS_ “b}S; 


D, D, UNARY_PLUS_D) 
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OPERATOR_ROUT INE 
: Define the Operator Routine Table for COBOL unary minus. 
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74 : OPERATOR_ROUTINE (8, 8, B. UNARY P 
1 
1 
1 
1 
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610 

6 1 

$18 

614 

615 

$19 

6 § 4 8 OPERATOR_ROUTINE_TABLE (COBOL_UNARY_MINUS_TABLE, 

6 P 2740 ! The following are not beng age dependent types. This is needed for DEBUG 

621 P 2741 i types. For example, DEP/QUAD L= +1. 

6 j P 274 i 

Pp _MINUS_B), 

624 P 2744 OPERATOR-ROUTINE (W, W, W, UNARY_MINUS_W), 

6 P 2745 OPERATOR-ROUTINE (L, L, L. UNARY_MINUS_L), 

6 P 276 OPERATOR-ROUTINE (G, G, G, UNARY_MINUS_G), 

6 P 274 OPERATOR-ROUTINE (H, H, H, UNARY-MINUS_H), 

6 § P 274 OPERATOR-ROUTINE (Q, Q, Q, UNARY-MINUS_Q), 

6 p 149 OPERATOR_ROUTINE (0, 0, 0, UNARY_MINUS_O), 

631 P ret OPERATOR_ROUTINE (P, P, P, UNARY_MINUS_P), 

4 2 Pp 3¢ OPERATOR-ROUTINE (F, F, F, UNARY_MINUS_F) 

6 Pe OPERATOR-ROUTINE (D. D. D. UNARY-MINUS_D)5; 

5 f 5 Define the Operator Routine Table for COBOL =. 

6 Pp Fa$ OPERATOR_ROUTINE_TABLE (COBOL EQL TABLE 

6 P 138 OPERATOR Rou QUTINE (1 (T, mit eG. 1 TS, 

6 P 27 F, EQL- P: -P): 

640 P 2760 OPERATOR™ “ROUTINE cr a EQL"F 

41 761 OPERATOR-ROUTINE (D, § TF, EQL-D “5: 

es 1; Define the Operator Routine Table for COBOL NOT =. 

645 P 2765 1 OPERATOR ROUTINE TABLE (COBOL NEQ_TABLE 

646 P3766 OPERATOR_ROUTINE (T, T, TF, NEQ_T_TS, 

64 P 27 ORT ROUTINE (P,P, TF. NEQ~P P). 

048 P 276 OPERATOR-ROUTINE (F, F, TF, NEQ 

649 16 OPERATOR-ROUTINE (D, D, TF, NEQq -b- “5; 

re 77 ! Define the Operator Routine Table for COBOL >. | 
| 
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OPERATOR ROUTINE TABLE (COBOL_GTR_TABLE 
OPERATOR ROUTINE fr T, TF, err iets, 
OPERATOR “ROUTINE (P, P, TF, GTR-P-P), 
OPERATOR-ROUTINE (F, F, TE, GTR-F-F) 
OPERATOR-ROUTINE (D, D, TF. GTR-D-D)5; 
Define the Operator Routine Table for COBOL NOT <. 
OPERATOR ROUTINE _ TABLE ey“ Gea eq ABle 
OPERATOR_ROUTINE T, TF, TS, 
OPERATOR: “ROUTINE (F ’ Pe TF, oO -b-p) 
OPERATOR-ROUTINE (F, TE. GEOFF) 


OPERATOR-ROUTINE (D, bt > GEQ"D-D)5; 
Define the Operator Routine Table for COBOL <. 


ERATOR_R ROUTINE Me | T ¥is 
OPE RATOR E (P: P. TF. $3.1 P): 
OPERATOR ™~ “Rout WE . TF. LSS_F-F) 
OPERATOR —ROUT INE tb 5° TF, LSS-D-D)5; 


Define the Operator Routine Table for COBOL NOT >. 


OPERATOR_ROUTINE TABLE (COBOL LEQ. TABLE 
OPERATOR_ROUTINE T, TF, LEQ_T_TS, 
OPERATOR ~ “ROUTINE (Po pe Tee Le ms =P). 
OPERATOR“ROUTINE (F. F. TF. Les 
OPERATOR-ROUTINE (D; D; TF. tEO-b D “5S: 


Define the Operator Routine Table for COBOL NOT. 


OPERATOR_ROUTINE_ TABLE (COBOL_NOT_TABLE 
OPERATOR_ROUTINE (TF, TF. ~TF,-NOT_LS); 


Define the Operator Routine Table for COBOL AND. 


OPERATOR ROUTINE TABLE (COBOL_AND_TABLE, 
OPERATOR_ROUTINE (TF, TF, TF, AND_L_L)); 


Define the Operator Routine Table for COBOL OR. 


OPERATOR_ROUTINE He (COBOL OR_TABLE, 
OPERATOR_ROUTINE (TF, TF, TF, OR_L_L)); 


Define the Operator Information Table for COBOL. 


OPERATOR_INFO reer (COBOL _OPINFO_TABLE, 
OPERATOR_INFO_ENTRY 
ADD_TABLE, COBOL_HIER_TABLE, TABLEBASE), 
OPERATOR~ INF ERTRY 
(SUBTRACT? COBOL. SUB_TABLE, COBOL_HIER_TABLE, TABLEGASE), 


satay TOR INFO. ENT 
COBOL -MUL_TABLE, COBOL _WIER_TABLE, TABLEBASE), 
OPERATOR. INFO_LENTRY 
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HF coe giv ~TABLE, COBOL_HIER_TABLE, TABLEBASE), 
og” Moo. UNARY _PLUS_TABLE, COBOL_HIER_TABLE, TABLEBASE), 
n Rus Rye UNARY AIMUS TABLE, COBOL _HIER_ TABLE, TABLEBASE), 
EQ C080 EQL_TABLE, COBOL_HIER_TABLE, TABLEBASE), 
fonts 0 ENTRY 
NOT. NYOLENfaY oe NEQ_TABLE, COBOL_HIER_TABLE, TABLEBASE), 

H. COBOL_GTR_TABLE, COBOL_WIER_TABLE, TABLEBASE), 

fa ACs GEQ_TABLE, COBOL_WIER_TABLE, TABLEBASE), 
ea COBOL. LSS_TABLE, COBOL_HIER_TABLE, TABLEBASE), 
E 
I 
I 


a 
i 


NFO_E 
Qua, co COBOL_LEQ_TABLE, COBOL_HIER_TABLE, TABLEBASE), 
C 


RY 
OBOL _NOT_TABLE, COBOL_WIER_TABLE, TABLEBASE), 
OPERATOR_ ERTRY~ 
> COBOL AND_TABLE, COBOL_HIER_TABLE, TABLEBASE), 

OPERATOR_INFO_ERTRY~ 
COBOC_OR_ TABLE, COBOL_HIER_TABLE, TABLEBASE), 
OPERATOR_INFO_ENTRY 

i gE TABLEBASE,, COBOL_HIERD_TABLE, TABLEBASE), 


(DEPOSIT “TABLEBASE. COBOL_HIERD_TABLE, TABLEBASE), 
OPERATOR_INFO_EN 
(IDENTITY? ET ABLEBASE. TABLEBASE, TABLEBASE)); 
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FORTRAN OPERATOR INFORMATION TABLES 


This section contains the Operator Routine and Type tables needed to 
evaluate expressions in the FORTRAN Language. 


The oo summarizes the information in the FORTRAN manual about 

Cote ere conversions, en ; operators. There is further documentation 
thin’ thet tables below, describing exactly how we translate this into 

the DEBUG tables. 


: verarey Data: 


ReneCenees Integer, Real, Character variables, Integer, Real, Character 
rray 


Fortran Data Types: 
optcatet (byte), logical*2 (word), Logical*4 (Long) 
pnteversd (word), integer*4 (long) 
eared (f_float), real*8 (d_float, g_float), real*16 (h_float) 


complexe8 (f_float), complex*l6 (d_float, g_float) 
- Character 


Expressions: 
- Arithmetic 
hte numeric (logical, integer, real). Result: numeric values. 
Operator: ** (exponentiation), ® (multiplication) / (division), 
+ (addition, unary plus), - (subtraction, unary minus) 


Character 
Operand: character. Result: character values. 
Operator: // (concatenation) 


Relational 
erand: numerics or characters. Result: logical velues. 
erator: ‘ett (less than), .LE. (less than or equal to) 
Q. (equal NE. (not equal to), .GT. (greater thanS, 
-GE. eats "shel or equal to) 


Logical 
Sptrend: ew ale | or logical. Result: lo teat values. 
Operator: AN eee OR., XOR., -NEQV. (Xx R.) e -EQV., NOT. 


Type sar thaet ‘ 
. Ar 
r Gporends are of the same data type, the result is also of that 
data type. 


2. Orhorys se, Logical --> int ore? --> integert4 --> realt4 --> 
realeé ==> realtl6 --> complex*S --> complex*l6. 


eee Note - although a chart such as the one given above 
eee does appear in the FORTRAN manual, that is not 


voe=000 ipbet94e OO-HE:SE YASS SL asade gtse- 78 Pane 185 


91 oo quectty how things are really done. A more precise graph 
71 B->W->L=->F -> 0 ->H 

3 ‘ee => oC 

9 gh hg become ged pse so when complex is involved. 


a real*l6 > 2 ot. to a complex*8 then 
both are converted up to At ext 


This second diagram is our hierarchy table. 


If the user s specified /G_FLOAT then the diagram is the same 
except that G is substituted for D. 


3. An operation involving a ,genntense and a real*16 
produces complex*l6 result. 


NOUNS 


4. Integer operations are performed on integers. (Logical is treated 


I Re ie ee te De te ted ee he ted ed eed ed ee 


; 5 as integers 

: 5. Real operations are perfomred only on reals or combinations of 
real, integer, and logcal. Integer --> real before the operation. 
? 6. Real*8, Real*16 operations. Elements --> higher-precision (see 2) 
¢ 7. Complex operations. (see 2, 4, 5, 6, and 3) 

944 Relational 

945 1. Complex can be related only by the .EQ. and .NE. 

: § 2. Lower-ranked data type --> higher-ranked data type before the 

30 the comparison is made. 

349 eLogical 

950 ae Logical operator operates on logical, the result is jestcat 

sh 2.4 Logice eat seer acer operates on integer, the operation carried 

: § on th corresponding bits of the internal of the 
9a _ Integer he fesutt Ans OR logical 

: a rator operates on combined logical, integer, logica 
3 ‘= nteger. then (see 2). . : 7 

955 


pet ins. see T ing Table for FORTRAN 
In F » date the 9 


t was declared as logicatet logical*2, or logical*4 


appeors wie’ the DST as BU, WU, and LU. Hoyever,. for our purposes, we 


ae ee ee we ee cee ee at me el ed me ee ee a a ee ee ed eh a ch ced et ed ne ee ee ed a ed a ed a Sh ad at 8 dt Sd 5 A dt 


! 
04 ‘ 
7¢ : 
ao¢ ; want to treat A ty a 8. W. or L. We thus ‘‘map’’ the dtypes. 
596 i For ex Le. t {oy con ontains 5 A and L contains 1, then we 
2965 + want EV ve 0 
766 The type tk a Sreple’ is” fens needed to turn BU->B, WU->W, and LU=>L 
P $968 1 TYPE_MAPPING TABLE CFORTRAN_RAP_ TABLE, 
P 2969 TYPE_GRAPH_EDGE ( 8)> 
4 297 TYPE” GRAPH_ EDGE (WU, Ww). 


pyPee GRAPH-EDGE (LU, L), 


NN 
Nn 
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H 1 1 

; 974 «1 

3 975 1! Define the Type Conversion snvoraetion Table for FORTRAN. 

3 976 1! This ge nts to | mapping table define above. There is no CVT_TABLE 
: 44 : : specifying exceptions to the DBGSCVT_DX_DX rules. 

3 P 2979 1 venaa 22> INFO_TABLE (FORTRAN SAL Shy ae 

; £980 ; ONVERSION_INFO_ENTRY (FORTRAN_MAP_TABLE, TABLEBASE)); 

; 82 1 

; + 1 ! Define the Type Hierarchy Table for FORTRAN. 

; 984 1! This table is Gescr ited speve when we talk sboyt conversion rules. 
3 985 1 ! Note that the Incompatibility Table prevents m aioe D with G types. 
: 786 : : Leaving out the G edges, the graph specified by this table is: 

$ 988 61! B->>W->L-=>F => D-H 

3 eh. 1 ‘ \ \ 

3 44 } : FC => DC 

; P 336 1 TYPE_HIERARCHY_TABLE (FORTRAN_HIER1_TABLE, 

: P 2993 1 TYPE_GRAPH_EDGE (8, W), 

H P 2994 1 TYPE_GRAPH_EDGE (W, L), 

3 P 2995 1 TYPE_GRAPH_EDGE (L, F), 

3 P 336 1 TYPE_GRAPH_EDGE (F, D), 

3 P 2997 1 TYPE_GRAPH_EDGE (F, G) 

; P 2998 1 TYPE-GRAPH-EDGE (F. FCS, 

3 P 2999 1 TYPE_GRAPH_EDGE (D, H) 

; P 3000 1 TYPE-GRAPH-EDGE (D. DCS, 

3 P 3001 i TYPE_GRAPH_EDGE (G, H) 

; P 00¢ 1 TYPE-GRAPH-EDGE (G, GCS, 

3 P 3005 1 TYPE_GRAPH_EDGE (H, DC), 

: P 3004 1 TYPE_GRAPH_EDGE (H, GC) 

: P 3005 1 TYPE-GRAPH-EDGE (FC, DCS, 

3 P B38 ; TYPE GRAPH EDGE (FC, GC), 

3 008 1 

: NOS 1 

; p10 1! peting a Type Hierarachy Table for FORTRAN 

3 5011 1! This is a subset of the HIER1 table, which is used for operators that 
3 44 1 ! do not accept complex types. It would also be OK to use the HIER! table 
3 015 1°! for those operators, but giving a smaller table makes the code run 
3 014 \ : faster. 

; B 3016 1 TYPE HIERARCHY TABLE (FORTRAN HIERZ, TABLE, 

3 P 3017 1 TYPE_GRAPH_EDGE (8, W), 

3 P at} 1 TYPE_GRAPH_EDGE (W, L), 

3 F 301 i TYPE_GRAPH_EDGE (L, F), 

; P 3020 1 TYPE_GRAPH_EDGE (F, D0), 

3 P 3021 1 TYPE_GRAPH_EDGE (F, G), 

3 P 3C § 1 TYPE_GRAPH_EDGE (D, H), 

3 P 3C 1 TYPE_GRAPH_EDGE (G, H), 

° . 3 \ 0); 

; 026 1 

3 p $ 1 ! Define a Type Hierarachy Table for FORTRAN 

3 ¢ 3 1! This is a repeat of re wleRs and HIER tables. It is used for those 
3 ' 1 ! operators that only accept integer types. It would also be OK to 
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; use the HIER1 table but providing a smaller table speeds up the code. 
¥TYPE_HIERARCHY_ “EDGE (8 F isso HIERS_TABLE, 


TYPE_GRAPH_ED 
ie <GRAPH_ (We UL), 


DODDS 
es 


vuvv 


neti the Type Hierarchy Table for FORTRAN deposit. 

This is a eore cular “ @ A, ch toc Ludes all types exe ei 

This means that any the numeric pgxee® are convertible to any 
of the other mamer ie “types on a DEPO 


TYPE _HIERARCHY_ “EDGE. var ta HIERD_TABLE, 
Vacca 
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4 

4 

1 

1 

1 

1 

1 

1 

1 

1 

1 

; 

1 ! Define the Type Incompatibility Table for FORTRAN. 
; This prevents the user from mixing D and G types in an expression. 
1 TYPE_INCOMP ng a SroR TRAN. INCOMP_TABLE, 
: TYPE_GRAPH_E (D0, G 
1 TYPE> “GRAPH ED DE (D, G Gti. 
1 TYPE-GRAPH_EDGE (G 

i TYPE GRAPH_EDGE (Be, "GCS, 
1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

i 

1 

i 

4 

1 

1 

1 

i 

1 

1 

1 
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lee 

i Most of the ar Pehaet te wag bax operate on two arguments of the same type. 
i That type may - ak D,. G, H, FC, DC, GC, so we provide all 

i of those case indices. 


Define the Operator Routine Table for FORTRAN addition. 


OPERATOR_ROUT INE i a ae. poe ARLE. 
OPERATOR_ROUT! 8. 8. 0.6.8 
OPERATOR ~ sat he (W, W, <W 


P 
5 P 8, 
5 P a W. nt 6). 
P OPERATOR-ROUTINE (L. L. L. ADDUL“L). 
2 P RATOR-ROUTINE (F, F, F, ADD-F-F), 
5 P OPERATOR-ROUTINE (D. D. D. ADD-D"D). 
P OPERATOR-ROUTINE (G. G. G. ADD-G-G). 
4 P RATOR“ROUTINE (H., H, H, ADD-H-H) 
P OPE TOR" ROUTINE (FE, fc, FC, ADB_FC_FC), 
P OPERATOR-ROUTINE (DC, DC. DC, ADD-DC~0C) 
OPERATOR-ROUTINE (GC, GC. GC, ADD-GC-GC)5; 
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! Define the Operator Routine Table for FORTRAN subtraction. 
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OPERATOR_ROUTINE (GC, GC, GC, POWER_GC_GC)); 


! Define the Operator Routine Table for FORTRAN concatenate. 
Concatenate can only be done on strings. 


OPERATOR ROUTINE _TABL 4m CONCAT TABLE, 
OPERATOR_ROUTINE orf » CONCAT_T_T)); 


! Define the Operator Routine vote for FORTRAN equal. 
ee can be done on strings as well as all the numeric 
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OPERATOR sey 
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efine the Operator Routine Table for FORTRAN not equal. 
his operator can be done on strings as well as all the numeric types. 


! D 

it 
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OPERATOR FOR ROU Tiare tt a a tn Oe Tague. 
N 


ie 


(ud, W. 
L. 

(F, F, 
Dd. 

eo &. L 

€, fc. ‘L, *F 

(DC, DC. L. N “0 

(GC, GC, L, NEQ- Pf "6C)5; 

! In the tables for the p conper teen operators, 

! we allow strings to be compared, and also all the numeric types except 

! for the complex floats. 

: Define the Operator Routine Table for FORTRAN greater than. 


OPERATOR_ROUTINE_TABL (FORTRAN agi TABLE, 
OPERATOR_ROUT arr? T, hy 
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OPERATOR_-ROUTINE (H, 
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Define the Operator Routine Table for FORTRAN greater than or equal to. 
OPERATOR_ROUTINE "it de (FORTRAN GFO, TA Tae 


OPERATOR_ROUT! L, GEQ_T_T) 
OPERATOR-ROUTINE (8, 8. L. GEQ-B-B8). 
OPERATOR-ROUTINE (W, W, L, GEQ-W-u), 
OPERATOR-ROUTINE (L. L. L. GEQUL“L), 
OPERATOR-ROUTINE (F, F. L. GEQ~F-F). 
OPERATOR-ROUTINE (D. D, L. GEQ"D"D), 
OPERATOR-ROUTINE (G, G, L. GEQ"G-G) 
OPERATOR-ROUTINE (H, H, L. GEQ-H-H)5; 


: Define the Operator Routine Table for FORTRAN Less than. 
OPERATOR_ROUTINE_ TABLE (FORTRAN_LSS TABLE. 


OPERATOR_ROUTINE (T, T, L. CSS_T_T) 
OPERATOR-ROUTINE (B, 8. L. LSS_B8-B). 
OPERATOR-ROUTINE (W, W. L. LSS_W Ww). 
OPERATOR-ROUTINE (L. L. L, LSS-L“L), 
ERATOR-ROUTINE (F, F. L. LSS-F_F). 
OPERATOR-ROUT INE (D, D. L. LS$-D-0), 
OPERATOR-ROUTINE (G, G, L. LSS~G_G) 
OPERATOR-ROUTINE (H, H, L. LSS_H-H)5; 


: Define the Operator Routine Table for FORTRAN less than or equal to. 
OPERATOR FOR ROL width eo (FORTRAN_LEQ Tage. 


OPERATOR (T 
oP 


. (B; 
OPERATOR-ROUTINE (W. 

RATOR-ROUTINE (L 
OPERATOR“ROUTINE (F. 
OPERATOR-ROUTINE (D. 
OPERATOR-ROUTINE (G. 
OPERATOR-ROUTINE (H. 


! The logical operators .AND., 
te integer data types. 


! only to 


T, L, CEQ_T_T) 

B. L. LEQ7B7B). 
W, Le LEQ" ie) “W), 
L. L. LEQTL“L), 
F, L, LEQ-F-F), 
D. L. LEQ™D"D), 
6, L. LEQ"G-G) 
H, L. LEQTHTH)S; 


-OR., .EQV., .NEQV., .NOT. can be applied 


Define the Operator Routine Table for FORTRAN not. 


OPERATOR ROUTINE IN (8, “f = 


OPERATOR_ROUTI 
OPERA TOR “ROUTINE. ¢ 


OPERATOR—ROUT INE cL t L. BIT“NOT “U5; 


W, BIT-NOT 


N_BIT NOT TABLE, 
» BIT_AOT_B), 


i) 


: Define the Operator Routine Table for FORTRAN and. 
OPERATOR_ROUTINE_TABLE (FORTRAN_BIT_AND_TABLE, 
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1 P OPERATOR_ROUTINE (8, 8, 8, BIT_AN ), 
t P OPERATOR ROUT INE (We f a BITTAND“U-u) 
\ OPERATOR-ROUTINE (L, L, L, BITIAND-L-L)5; 


: Define the Operator Routine Table for FORTRAN or. 


OPERATOR ROUTINE TABLE (FORTRAN. BIT OR TABLE, 
OPERATOR ROUTINE (8, 8, B, BIT_OR_6_B), 
OPERATOR-ROUTINE (W, W, W, BIT-OR-WW) 
OPERATOR-ROUTINE (L, L, L. BITIOR“L-L)5; 


: Define the Operator Routine Table for FORTRAN xor, neqv 


vv0v 


0 ] E (Ww, Ww, W, BIT-XOR Ww) 
OPERATOR-ROUTINE (L, L. L, BITIXOR“L-L)5; 


; Define the Operator Routine Table for FORTRAN eqv. 


OPERATOR ROUTINE TABLE (FORTRAN_BIT_EQV TABLE, 
OPERATOR_ROUTINE (8, 8, B, BIT_EQV_6_B), 
OPERATOR-ROUTINE (W, W, W, BIT-EQV-W_W) 
OPERATOR-ROUTINE (L, L, L, BITIEQVIL-L)5; 


vv0v 


: Define the Operator Information Table for FORTRAN. 

OPERATOR_INFO_TABLE (FORTRAN_OPINFO_TABLE, 
! The following are arithmetic tables that accept all numeric data types, 
! including complex. They thus 9° through the larger HIER! table, and 
need to specify an incompatibility table. 
OPERATOR_INFO_ENTRY (ADD FORTRAN_ADD_TABLE, FORTRAN_HIER1_TABLE, 


ORT INCOMP L 
OPERATOR_INFO ENTRY (SUBTRACT, FORTRAN_SUB_TABLE, FORTRAN_HIER1_TABLE, 
FORTRAN_IRCOMP_T 
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OPERATOR_INFO £ « FORTRAN_MUL_TABLE, FORTRAN_HIER1_TABLE, 
FORTRAN_ IRCOMP 
OPERATOR INFO ENTRY (DIVIOE, FORTRAN_DIV_TABLE, FORTRAN_HIER1_TABLE, 
40 FORTRAN_IRCOMP TABLE), 
41 OPERATOR_INFO_ENTRY (UNARY_PLUS, FORTRAN_UNARY_PLUS_TABLE, 
4g FORTRAN_HTER1 TABLE, FORTRAN_INCOMP TABLE); 
4 OPERATOR_INFO_ENTRY (UNARY_ MINUS, FORTRAN UNARY_MINUS_TABLE, 
£4 FORTRAN_HIER1 TABLE. FORTRAN_INCOMP TABLE) 
45 OPERATOR_INFO_ENTRY ( R_OF, FORTRAN_POWER_TABLE, FORTRAN_HIER1_TABLE, 
r¢ FORTRAN_IRCOMP_TABLE), 
' Equal/Notequal can accept all numeric types including complex and 
a3 : thus also need the larger (Bee 0 table and the invoaper isi ty 
1 i , 
3 


OPERATOR_INFO_ENTRY (EQUAL, FORTRAN_EQL_TABLE, FORTRAN_HIER1_TABLE, 
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FORTRAN_INCOMP_ TABLE) 
OPERATOR INFO ENTRY (NOT EQUAL, FORTRAN_NEQ_TABLE, FORTRAN_HIER1_TABLE, 
FORTRAN_IRNCOMP_TABLET, 


! The other relationals do not accept complex so they can get by with 
: the smaller hierarachy table. 


OPERATOR og parey (GTR THAN, FORTRAN_GTR_TABLE, FORTRAN_HIER2_TABLE, 
FORTRAN _IRCOMP_ TABLE 

renee ng ply acre Equa, FORTRAN_GEQ_TABLE, FORTRAN_HIER2_TABLE, 

OPERATOR we ENTAY (LSS_fHAN, FORTRAN_LSS_TABLE, FORTRAN_HIER2_TABLE, 
FORTRAN_IRCOMP TAB 


L 
OPERATOR INFO ENTRY (LSS _EQuAL, FORTRAN_LEQ_TABLE, FORTRAN_HIER2_TABLE, 
FORTRAN_INCOMP_TABLED, 


! The logical operators accept only integer quantities so they can 

! use the smallest hierarchy table. They also do not need an 
incompatibility table. 

OPERATOR pee ENTRY (NOT, FORTRAN_BIT_NOT_TABLE, FORTRAN_HIER3_TABLE, 
wien} INFO_ENTRY (AND, FORTRAN_BIT_AND_TABLE, FORTRAN_HIER3S_TABLE, 
aes 1 INFO_ENTRY (OR, FORTRAN_BIT_OR_TABLE, FORTRAN_HIER3S_TABLE, 
OPERATOR_INFO_ENTRY (XOR, FORTRAN_BIT_XOR_TABLE, FORTRAN_HIER3_TABLE, 


L 
OPERATOR_INFO_ENTRY (EQV, FORTRAN_BIT_EQV_TABLE, FORTRAN_HIER3_TABLE, 
TABLEBASED, 
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! Concatenate accepts only string types and there are no conversions 
; so we do not need a hierarchy table or an incompatibility table. 


OPERATOR_INFO_ENTRY (CONCATENATE, FORTRAN_CONCAT_TABLE, TABLEBASE, 
TABLEBASED, 


! The CONVERT operator gets called to convert moar tess to integer 

: type and to convert expressions in FOR, IF, WHILE, REPEAT statements 
: to integer type. It can thus use the smaller HIERS table to specify 
t 


PEERS 


! the rules for conversion to integer. 
OPERATOR_INFO_ENTRY (CONVERT, TABLEBASE, FORTRAN_HIER3_TABLE, 
TABLEBASES, 


! The DEPOSIT operator gets geile on the DEPOSIT command. It has 
! its own hierarchy table which allows any numeric Fype to be 

: converted t any other nynerts type. The ingompas lity table, 
5 
t 


= 


IS 
RoRORORRONONONONYD 2  e 
Ooo 


! however, still prevents depositing D types into G types and 
! vice versa. 


OPERATOR_INFO_ENTRY (DEPOSIT, TABLEBASE, FORTRAN_HIERD_TABLE, 
FORTRAN_IRCOMP_TABLE), 


' The IDENTITY operator gets called at the end of an EVALUATE command 
! to apply the PRIM_TO_VAL routine and then apply the appropriate 
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ype mappings. This will ensure that EV BU will print as a signed integer, 
or example. 


The identity operator does not require any tables. 
DPERATOR. INFOLENTRY CIDENTITY, TABLEBASE, TABLEBASE, TABLEBASE) 
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MACRO OPERATOR INFORMATION TABLES 


This section contains the Operator Routine and Type tables needed to 
evaluate expressions in the MACRO Language. 


! Although MACRO does not contain run-time expressions in ihe Language 
! we provide a set of operators auch the same as that provided for 8B 1§s: 


t 

1 

' 

! Arithmetic: + - * / @ MOD cbioery @ is the shift spereeers 
' Relational: EQL NEQ LSS LEQ GTR GEQ LSSU LEQU GTRU GEO 

' Logical OR XOR EQV NOT 

: Bit selection: X<p,s,e> 


! Indirection: @ 


! Define a Type Rapping Table for MACRO. 

! MACRO declares all its data to be labels, which means we get type ZI, 
! even though we ag want to treat it as integer. To simplify things, 
! we just map ZI to integer here. 


] 

f 

‘ 

] 

] 

TYPE MAPPING TABLE (MACRO_MAP_TABLE, 
TyPE_GRAPHEDGE (ZI, C), 


! Define fhe H agg Conversion Information Table for MACRO. 
' We spe fy the Mapping Table defined above. There is no Longuage 
! specific table for conversions - we just use the rules in DBGSCVT_DX_DXx 


t 

' 

‘ 

‘ 

CONVERSION_INFO_TABLE (MACRO_CVTINFO_TABLE, 
CONVERSION_INFO_ENTRY (MACRO_MAP-TABLE, TABLEBASE)); 


! Define the Type Hierarchy Table. All operations are done on signed longwords. 
! Th de a path for all types to be converted to signed longwords. 

! Note = even though we do not get dtypes 8, W, BU, WU, LU from the 

! MACRO DST, we provide conversion paths here, in case the user is debugging 

: a module produced by another language but with language set to MACRO. 
TYPE_HIERARCHY_TABLE (MACRO_HIER_TABLE, 

TYPE_GRAPH EDSs (eu. wus, 


TYPE_GRAPH_EDGE (WU, LU), 
TYPE_GRAPH_EDGE (LU, L), 
TYPE_GRAPH_EDGE (8B , W), 
TYPE_GRAPH_EDGE (Ww, L), 


' Define the Type Hierarchy Table for DEPOSIT. 

' This is a circular gragh which includes all types that can be obtained 
! from calling PRIM_TO_VAL on a MACRO primary. (Plus some other types as 
! well = see above note). 

! What this means is thet 

: any type is convertible to any other type on a DEPOSIT. 

T 


YPE_HIERARCHY_TABLE (MACRO_HIERD_TABLE, 
TYPE_GRAPH“EDGE (B, BU); 
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P TY GRAPH. DGE (BU, W), 

P 3495 TYP =GRAP DGE (Ww, WU), 
P TYPE ~GRAP i DGE (WU, L), 
P TYPE-GRAPH-EDGE (L, LU) 

Pp 349 TYPE-GRAPH- DGE (LU, vus 

P TYPE-GRAPH-EDGE (VU, SVUS, 
P TYPENGR RAPH “EDGE (SVU, SV). 
P TYPE-GRAPH “EDGE (SV, V), 

P TYPE-GRAPH-EDGE (V, Z1) 

P TYPE“ERAPH™ DGE Cz 7€), 
P 4 TYPE GRAPH-EDGE (2EM, 8), 


! ALL of the arithmetic, relational, and Logtcat 
! operators just operate on Longword quantities. 


Define the Operator Routine Table for MACRO addition. 


OPERATOR_ROUTINE_TABLE (MACRO_ADD_TABLE 
OPERATOR_ROUTINE (L, L, L> ADB_L_L)S; 


Define the Operator Routine Table for MACRO subtraction. 


OPERATOR_ROUTINE_ TABLE (MACRO_SUB_TABLE 
OPERATOR_ROUTINE (L, L, C, SOB_L_LS); 


Define the Operator Routine Table for MACRO multiplication. 


OPERATOR_ROUTINE_TABLE (MACRO_MUL_TABLE 
OPERATOR_ROUTINE (L, L, L> MUC_L_L)S; 


Define the Operator Routine Table for MACRO Division. 


OPERATOR_ROUTINE_TABLE (MACRO_DIV_TABLE 
OPERATOR_ROUTINE (L. L, L> DIV_L_L)S; 


Define the Operator Routine Table for MACRO arithmetic shift. 


OPERATOR ROUTINE TABLE (MACRO_SHIFT TABLE, 
OPERATOR_ROUTINE (L, L, L> SHIFT_LEFT_L_L)); 


Define the Operator Routine Table for MACRO modulus. 


OPERATOR_ROUTINE TABLE (MACRO_MOD TABLE 
OPERATOR_ROUTINE (L, L. L> MOO_L_L)S; 


: Define the Operator Routine Table for MACRO Unary Plus. 
OPERATOR_ROUTINE_TABLE (MACRO_UNARY_PLUS_TABLE, 


! The following are not Langu or, depgndent types. This is needed for DEBUG 
types. For example, DEP/QU = + 


OPERATOR_ROUTINE (8, 8, 8, UNARY_PLUS_' 
OPERATOR-ROUTINE (W, W, W, UNARY PLUS 
OPERATOR-ROUTINE (F, F, F, UNARY_PLUS_ 
OPERATOR-ROUTINE (D, D, D, UNARY PLUS.’ 
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OPERATOR_ROUTINE (G, G, G, UNARY_PLUS_G), 
OPERATOR-ROUTINE (H, H, H, UNARY-PLUS-H), 
OPERATOR-ROUTINE (P, P, P, UNARY-PLUS_P), 
OPERATOR-ROUTINE (Q, Q, Q, UNARY-PLUS_Q), 
OPERATOR-ROUTINE (0, 0, 0, UNARY-PLUS_O), 


OPERATOR_ROUTINE (L, L, L, UNARY_PLUS_L)); 
: Define the Operator Routine Table for MACRO Unary Minus. 
OPERATOR_ROUTINE_TABLE (MACRO_UNARY_MINUS_TABLE, 


! The following are not Lan pose Gogendent types. This is needed for DEBUG 
: types. For example, DEP/QUAD L= +1. 


OPERATOR _ROUTINE (B, B, 8, UNARY 
OPERATOR_ROUTINE (Ww, W, W, UNAR 
ern onneutine (F, F, F, ean 


OPE t ROUTINE 
OPERATOR_ROUTINE 


nd Fed feed Pad Pd Fo Pd Po 


NUS_B 
NUS _W 
NUS _F 
NUS_D 
NUS_G 
NUS_H 
ATOR_ROUT NUS_P 
OPERATOR_ROUTINE U _MINUS_Q 
OPERATOR_ROUTINE 0, 0, UNARY_MINUS_0) 
OPERATOR_ROUTINE (L, L. L, UNARY_MINUS_L)); 
: Define the Operator Routine Table for MACRO Equal. 


OPERATOR_ROUTINE_TABLE (MACRO_EQUAL_TABLE, 
OPERATOR_ROUTINE (L, L, L, EQL_C_L)); 


: Define the Operator Routine Table for MACRO Not Equal. 


OPERATOR_ROUTINE_ TABLE (MACRO_NOT_EQUAL_TABLE, 
OPERATOR_ROUTINE (L, L, L> NEQ_L_LDS; 


: Define the Operator Routine Table for MACRO Less Than. 


OPERATOR_ROUT INE TABLE (MACRO_LSS_THAN_TABLE, 
OPERATOR_ROUTINE (L, L, L> LSS_L_LY); 


: Define the Operator Routine Table for MACRO Greater Than. 


OPERATOR_ROUTINE_TABLE (MACRO_GTR_THAN_TABLE, 
OPERATOR_ROUTINE (L, L, L> GTR_L_LY); 


: Define the Operator Routine Table for MACRO Less Than or Equal. 


OPERATOR_ROUTINE TABLE (MACRO_LSS_EQUAL_TABLE, 
OPERATOR_ROUTINE (L, L, L> LEG_L_LDY; 


H Define the Operator Routine Table for MACRO Greater Than or Equal. 


OPERATOR_ROUTINE TABLE (MACRO_GTR EQUAL_TABLE, 
OPERATOR_ROUTINE (L, L, L> GEG_L_LDS; 
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pOE ; Define the Operator Routine Table for MACRO Less Than Unsigned. 


OPERATOR ROUTINE TABLE (MACRO LSSU_THAN TABLE, 
OPERATOR_ROUTINE io L. Ly LSS“LU_LO)); 


a 


: Define the Operator Routine Table for MACRO Greater Than Unsigned. 


OPERATOR ROUTINE TABLE (MACRO_GTRU_THAN_TABLE, 
OPERATOR_ROUTINE fu L, L> GTR-LU_LO)); 


SESSPELLE 


vo 
a a od od 


: Define the Operator Routine Table for MACRO Less Than or Equal Unsigned. 


OPERATOR ROUTINE TABLE (MACRO_LSSU_EQUAL_TABLE, 
OPERATOR_ROUTINE (L, L, L> LEQ“LU_LUY); 


wn 


; Define the Operator Routine Table for MACRO Greater Than or Equal Unsigned. 


OPERATOR ROUTINE TABLE (MACRO_GTRU_EQUAL_TABLE, 
OPERATOR_ROUTINE (L, L. L> GEQ"LU_LUY); 


: Define the Operator Routine Table for MACRO Bitwise And. 


OPERATOR ROUTINE TABLE (MACRO_B1T_AND_TABLE 
OPERATOR_ROUTINE (L, L. L> BIT_AND_L_L)S; 
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: Define the Operator Routine Table for MACRO Bitwise Or. 


1 

1 

1 

1 

1 

; 

1 

1 

1 

1 

1 

1 

1 

1 

3 

1 

j 

1 

1 

1 OPERATOR ROUTINE TABLE (MACRO_BIT_OR TABLE 
i OPERATOR_ROUTINE (L, L, L> BIT_OR_L_L)S; 
i 
1 
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: Define the Operator Routine Table for MACRO Bitwise Xor. 


OPERATOR_ROUTINE_TABLE (MACRO_BIT_XOR_TABLE 
OPERATOR_ROUTINE (L, L, L> BIT_XOR_L_L)S; 


: Define the Operator Routine Table for MACRO Bitwise Eqv. 


OPERATOR_ROUTINE TABLE (MACRO_BIT_EQV_TABLE 
OPERATOR_ROUTINE (L, L, L> BIT_EQU_L_L)S; 


: Define the Operator Routine Table for MACRO Bitwise Not. 


OPERATOR_ROUTINE TABLE (MACRO_BIT_NOT TABLE, 
OPERATOR_ROUTINE (L, L. L> BIT_NOT_L)); 


! Define the Operator Routine Table for MACRO bit selection. 

! Bit selection is a Little unusual. It basically just modifies 
; the descriptor for the address. 

i 
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! when not onbined with a fetch, X<p,s.e> is equivalent to X+p/8 
! when combined with a fetch, eng extracts s bits starting from 


position p, with sign extens ne is 1. 


a Ab Ab hd th Ab debeb debi d 


DS OOD NAME WI O OONOAUS WI OOO 


rays 


wn 
~~ 
— 


See the routines DBGSBLISS BITSELECT and DBGSBLISS_INDIRECTION, 
and also the comments in the BLISS tables. 


i 
i 
' 
OPERATOR_ROUTINE_TABLE (MACRO_BITSELECT_TABLE, 


& 

wm 
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OPERATOR_ROUTINE (L, L. L, BITSELECT)); 

! Define the Operator Routine Table for MACRO indirection. 

i et operator is the only 3 bas, " ches its or parents. so 

i it is the on y one that may all the geee ble data types. 

The result of the fetch is a nave 4 Tongword ° 

renren ROUTINE TABLE (MACRO_ iweinect yr 

E 


RATOR_R OUTINE 8. 8. L: | TL 

RATOR™ R TIN ,° 
IN 
I 
1 
I 
I 


ane 
OP 
OPER ORR 
OPERATOR_ROUT INE 
OPERATOR_ROUT INE 
: Define the Operator Information Table for MACRO. 
OPERATOR_INFO_TABLE (MACRO_OPINFO_TABLE, 
ALL of the arithmetic, logical, and relational operators use the 
same hierarchy table. The FALSE fetch flag means that, Like BLISS, 
if the cogrente are not explicitly fetched, address arithmetic 


is done 
EVAL A+B efit add the addresses of A and B 
EVAL @A*@B will add the contents of A and B 


OPERATOR_INFO_ENTRY 

(UNARY PLOS, MACRO_UNARY_PLUS_TABLE, MACRO_HIER_TABLE, TABLEBASE, FALSE), 
OPERATOR INF ENTRY 
(UNARY pins. MACRO_UNARY _MINUS_TABLE, MACRO_HIER_TABLE, TABLEBASE, FALSE), 


ERATOR_I IRFO. 
MACRO _BIT_NOT_TABLE, MACRO_HIER_TABLE, TABLEBASE, FALSE), 


ee= 


ccrerecee 


ee ese 888 8 8 


PUSVSUSVSUSTSVUSISIS 
ZS SRE FNS Oe 


vuvVvUVVUUUUU 
DODDDDAVNDDD 


NDIREC 
I ECT-LU 
ie 
Hi 
IREC 
IREC 
IREC 
NDIR 
NDIREC 


~c- ee es 8 8 & 


Se ed 


), 


vw 
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oPenstonn ine. ENTRY 

open (AaR MACRO ADD_TABLE, MACRO_HIER TABLE, TABLEBASE, FALSE), 
MACRO_SUB_TABLE, MACRO_HIER_TABLE, TABLEF €, FALSE), 

PACRO_MUL TABLE, MACRO_HIER TABLE, TABLEBASE, FALSE), 

CRO DIV_TABLE. MACRO_MIER TABLE, TABLEBASE, FALSE), 

, MACRO_SHIFT_TABLE, MACRO_HIER_TABLE, TABLEBASE, FALSE), 

RO.EQUAL TABLE, MACRO_WIER_TABLE, TABLEBASE. FALSE), 

MACRO_NOT_EQUAL_TABLE, MACRO_WIER_TABLE, TABLEBASE, FALSE), 

- RACRO. GTR_THAN_TABLE, MACRO_HIER_TABLE, TABLEBASE, FALSE), 

> MACRO_LSS_THAN_TABLE, MACRO_HIER_TABLE, TABLEBASE, FALSE), 


yo ent PACRO. GTR_EQUAL_TABLE, MACRO_HIER_TABLE, TABLEBASE, FALSE), 
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3 P 37 1 cb 5s QUAL pacne LSS_EGUAL TABLE, MACRO_HIER_TABLE, TABLEBASE, FALSE), 
3; 36 p 3703 3 OPERATOR INFO, Ent Ent 

3s 3606 4 f } wenn’ NOON ENTR RACRO -MOD_TABLE, MACRO_HIER_TABLE, TABLEBASE, FALSE), 

3; 3608 P § 1 COTA THANCUN A MACRO. GTRU_THAN_TABLE, “ACRO_HIER_TABLE, TABLEBASE, FALSE), 
3 3605 - 1 OPERAT ={NEO. NTRY 

3: 361 e 1 ct S_THAN_U, MACRO_LSSU_THAN_TABLE, MACRO_HIER_TABLE, TABLEBASE, FALSE), 
; 361 P 3709 1 OPERATOR-INFO-ENTR 

3; 361 P 37 1 (GTR-EQUAC_U, MACRO_GTRU_EQUAL_TABLE, MACRO_HIER_TABLE, TABLEBASE, FALSE), 
: 361 p 3731 1 OPERATOR—INFO_ENTRY 

3: 361 P 37 1 (LSS-EQUAC_U, MACRO_LSSU_EQUAL_TABLE, MACRO_HIER_TABLE, TABLEBASE, FALSE), 
: 361 P f 1 OPERATOR~INFO_ ent Y 

3; 361 P 4 (BIT_AND “MACRO _BIT_AND_TABLE, MACRO_HIER_TABLE, TABLEF ASE, FALSE), 

; 361 p 3735 1 OPERATOR~ INFO. ENTRY~ 

: 361 P 37 1 (BIT-OR, MACRO_BIT_OR_TABLE, MACRO_HIER_TABLE, TABLEBASE, FALSE), 

; 361 p 3737 1 OPERATOR—INFO_ENTRY 

3 ae P 37 1 (BIT_XOR BACRO BIT _XOR_TABLE, MACRO_HIER_TABLE, TABLEBASE, FALSE), 

> 3621 p 3739 1 OPERATOR“INF6_EN EN TRY” 

3; 36 § P 3740 1 (BIT_EQV os -BIT_EQV_TABLE, MACRO_HIER_TABLE, TABLEBASE, FALSE), 

: 36 Pp 3741 1 OPERATOR” INFO_ENT 

3; 36 3 “ a } (BITSELECT, MACRO BITSELECT_TABLE, MACRO_HIER_TABLE, TABLEBASE, FALSE), 
3; 3 $ : re ! } CONVERT gets used to convert value descriptors to integer type. 

3; 3628 e me 1 OPERATOR INFO_ENTRY 

3; 3629 . ie } (CONVERT, TABLEBASE, MACRO_HIER_TABLE, TABLEBASE, FALSE), 

: 3631 p 3749 1 

3: 3 § P 3750 1 ! The INDIRECT operator (@) is the only one that does a fetch, so the 

3; 3 . f 1 } ; fetch flag is set to TRUE for this operator. 

3; 3635 P 37 3 1 OPERATOR INFO_ENTRY 

3; 36 4 Pee ' CINDIRECT, MACRO_INDIRECT_TABLE, MACRO_®\ER_TABLE, TABLEBASE, TRUE), 

3 36 P £36 1 ! DEPOSIT uses its own hierarchy tebe which allows any dtype to be 

3; 3639 P 3757 1 i genos ved into nt yes The fetch flag is false, meaning no implicit 

3; 3640 P £38 1 i fetch is done gn he hiechand-side of the deposit. 

3 3641 P 3759 1 i E.g, DEP A = paths s the address of B into A; 

3 a ¢ . 760 : DEP A = ba deposits the contents of B into A 

3 3644 P 3762 1 OPERATOR INFO_ENTRY 

3: 3645 . re? ' (DEPOSIT, TABLEBASE, MACRO_HIERD_TABLE, TABLEBASE, FALSE), 

: 36 § Pp 3765 1 ' The IDENTITY operator is used to turn primaries into, values at 

; 26 : Pp 766 1 i the end of an evaluate command. This ensures that EVA will 

3; 36 P 3767 1 i do exactly the same thing (go through the same code pat nD 

: 3650 6 ros 1 i as EVAL A*tO or EVAL 

3: 3651 P 37 1 i 

: b3¢ P 3770 1 OPERATOR INFO_ENTR 

; Th P a4 : i CIDERTITY> TABLEBASE, TABLEBASE, TABLEBASE, FALSE) 

; 3655 773 1 : 
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PASCAL OPERATOR INFORMATION TABLES 
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This section contains the Operator Routine and Type tables needed to 
evaluate expressions in the PASCAL Language. 


The following summarizes the information from the PASCAL manual. 
PASCAL Data Types: 


e — (Seqter) 
eInteger (signed L, -2*#31+1 to 2**31-1, unsigned L, 0 to ie 
in binary, octal, and hexdecimal. Note: Integer value > MAXINT, 
Mt pe value is treated unsigned, otherwise is always treated as 


ts a soivale character). 
-Boolean (TRUE, FALSE). 
unoceyee 3 (an ordered set of constant values denoted by 1 to 65535 


SSSLEALERISS 


> eee i i 
ce me ce wee ee ee me Ne ee eB ce ce co me me me eed ca ce me ee eh ce ee eB ee ed a a ed we a ed Bd ae a ad 8 oh os = ot 


own 
—_ 


79 "Tdentit 
794 - Subrange Ay Limited portion of another ordinal type for use as a 
£9? distinct ae - 
138 - Real 
7 F_float ect. 17038" 0 30-38 ° peese 
500 orfloat “0,908 iat *4c38 Jae 30d 

H-float - $6480, $04942. 0 gc $od os $9896 994932 

- Structured 
aoe @RRAY, VARYING OF CHAR, SET, and FILE 
e: 


1. ys pensteus ter to set constént value, except FILE 

2. ny structured type can be packed, exce : aie 
RECORD, RECORD with Variants, ARRAY, VARY G OF CHAR, FILE 
(of ordinal, real, structured and pointer) P 


Point 
anole variable, NIL. 


Compatibility: 
- Structural 
- Assignment 
Type eres eee 
c Types 


NTEGER (lowest) 
7 eg 


AL 
DOUBLE 
QUARD (highest) 


Character Types 
CHAR “a 


(Lowest) 
PACKED w OF CHAR 
VARYING OF CHAR (highest) 


a eh ce 8 ed ed et ad oe 
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GEVALOP 16-Sep-1984 00:32:25 AX-11 Bliss-32 V4.0-74 
tat ty =3007 1382 90:32:82 DEBUG. eRCTSBGE VAL OF .639;1 
Operators 
. Arithmetic (+ = # ## / DIV REM MOD) 
+ = # #@ operate on Arithmetic Types and produces a result of the 
same type as the val 


es. 
/ operates on arithneti¢ Types and eroquees a Real result. 
DIV slaved een on integer and unsigned and produces an integer or 


NA 


Da Pi i i nn in a MP Se ee Pe, ee ee ie | 
a dd 


UENO DONOULSUN “OOOO 


un esult. 


Relational (= <> < <= > >=) 
sp Real, String or Set expressions and return a Boolean 
ult. 


eLogical (AND OR NOT) 
Operate on Boolean expressions and produce a Boolean Value. 


“gtr ing (+ = <> < <= > >=) 
Operate on String expressions. 


Set (+ # = = <> <= d= IN) 
Form the union, intersection, or difference of two sets, compares two 
sets, or tests an ordinal value for inclusion in a set. 


Raa ae at errata 


OWONOUE Wty O Od 


! Define a Mapping Table for PASCAL. 
OSTS$K_BOOL. 


oO 
VMI 


G9 Cd Cd Co C9 Cd GO CD ONC 


! The compiler gives us a core of 

740 ' We've defined a DSCS$K_DTYP -B001 = DSTSK_BOOL. But we then 
741 ! map this dtype into our new DSCSK_DTYPE_TF. This keeps the dtype codes 
ve dense and also compatible across Cangauges. 

Bet TYPE_MAPPING TABLE (PASCAL_MAP_TABLE, 
745 P £66 TYPE_GRAPH_EDGE (TPTR, LU) 
r 865 TYPE-GRAPH-EDGE (BOOL, TF)S; 
748 865 ! Define the Type Conversion Information Table for PASCAL. 
749 506 ! PASCAL has a mapping table but no language-specific table of 
ie 5 : exceptions. It thus uses the DEBUG conversions given in DBGSCVT_DX_DX. 
73 p CONVERSION _INFO_TABLE (PASCAL _CVTINFO_TABLE, 
784 q4 CONVERSION_INFO_ENTRY (PASCAL_MAP_TABLE, TABLEBASE, TRUE)); 
755 {4 Derine the Type Hierarchy Table for PASCAL. 


Teis agect fies that. for numeric types, 
implicit conversions always go up along 
the hierarchy 


cee ce ce aD ee ee ed ee eae ee a ee ed ed oe ce ae ed ed a ce ee ce ce el ad oe ed ed ds ed ed 2 = 9 — — 4) — = Sd 5 —) 8) SS SS wt = = 2 A 
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' 

' 

‘ 

' 

i 
760 B->W->L->LU->F ->D->H 
76 i If /G_FLGA, was specified then substitute G for D in the above. 
76 !' Note = the PASCAL compiler never generates 8B or W, byt we allow 
764 ' a@ conversion path so thot such data can be accessed your language 
70? : is set to PASCAL in a mixed-language environment. 
767 Text can be converted to varying text for string operations. 
6 p TYPE_HIERARCHY_TABLE (PASCAL_HIER_TABLE, 
770 f TYPE_GRAPH_EDGE (T, VT), 
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TYPE_HIERARCHY_TABLE (PASCAL_HIER1_TABLE, ‘ 
TYPE_GRAPH-EDGE (8, W), 
TYPE-GRAPH-EDGE (W. L) 
TYPE_GRAPH_EDGE (L. tus, 


vwvuv0v 


! Define the Type Hierarchy Table for PASCAL deposit. 


K 16 
ALOP 16-Sep-1984 00:32:25 AX-11 Bliss-32 V4.0-74 p 73 
rive g~sehn 1382 99:82:52 HOMES Chl Sbacevacos.os9.1 20e 47) 
q P TYP ~ GRAPH EDGE (B, W), 
TYP =GRAPHEDG (Ww, L) 
77 P TYPE-GRAPH-EDGE (L. LUS, 
774 P 389 TYPE aAe-ESe (LU, F), 
P 389 TYPE_GRAPH_EDGE (F, D), 
P 389 TYPE_GRAPH_EDGE (F, G), 
P 3894 TYPE_GRAPH_EDGE (D, H), 
P 3895 TYPE_GRAPH_EDGE (G, H), 
38 0); 
38 $ od i | a smaller - ae te | Table for PASCAL. 
! This is a subset of the above table, and can be used for operators 
35) ; that only allow integer types. 
308 
90 
904 
905 
309 
908 
909 


i 
! This specifies what we will allow on a DEPOSIT command. That is, 

' if there is a _ from one dtype to another in the table below 

} then we will allow the first to be deposited into the second. 

! We have adopted similar rules as the PASCAL compiler; that is, in 

: gonere’. if the compiler allows the assignment we will allow the deposit. 
} here may be a few cases where we are more permissive than the compiler. 


TYPE HIERARCHY _TABLE (PASCAL_HIERD_TABLE, 
TYPE_GRAPH_EDGE (L, LU), 


! Allow integers to be deposited into ony of SUBRNG, or ENUM. 

! The type converter will call a TYPEID_CHECK routine which will 
! give an informational if the language does not allow the 

: assignment. We do, however, do the operation anyway. 


TYPE_GRAPH_EDGE (LU, SUBRNG), 
TYPE-GRAPH_EDGE (LU, ENUM), 
TYPE-GRAPH-EDGE (LU, SET), 


: Allow assignments in an upward direction. 


IVPE_GRAPH_EDGE (LU, fF), 
TYPE-GRAPH“EDGE (F, D), 
TYPE-GRAPH-EDGE (F. G). 
TYPE~GRAPH“EDGE (D. H) 


TYPE~GRAPHEDGE (G, H). 
: Text can be assigned into a VT variable. 
TYPE_GRAPH_EDGE (T, VT!. 
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940 

941 ' Allow ess ignaents of T, ENUM, and TF to subrange. Subrange 
3e8 : can be such things as ‘a’..'z', red..green, or false..true 
944 TYPE_GRAPH_EDGE (T, SET), 


iEGoctges 90:52:26 yasent ettas=a2 yeao-743 pase 74 


3 P 3945 1 TYPE_GRAPH_EDGE (T, SUBRNG), 
3 p rf 1 TYPE_GRAPH_EDG CEnua’ SET), 
3 ‘Pp 1 TYPE_GRAPH_EDGE (ENUM, SUBRNG), 
: P 1 TYPE-GRAPHEDGE (TF, Set), 
3 ae § 3¢ : TYPE_GRAPH_EDGE (TF, SUBRNG)); 
: 38 951 1 
3; 3855 9 4 1! ap ay A» [yee sncempat SOst ity Table for PASCAL 
3 a 2 ? : We d t allow types D and G to be mixed in arithmetic statements. 
: 34 P 3955 1 TYPE_INCOMP_TABLE (PASCAL_INCOMP_TABLE, 
3; oe P 387 } {ye -GRAPH_EDGE (D, GJ, 
ire 338 | 
3; 38 § 960 1 ! Define the Operator Routine Table for, SASCM. Addition. 
3 3844 961 1 ! We can add any of the numeric types. an also be applied to sets, 
3; 3845 306 1! in mich gece it means set union. It can be. applied to varying strings 
3; 38 § 965 1 ! and in this case it apens string concatenation. 
3; 964 1 ! The additional specifier for strings and sets refers to a eyeree check 
3: 3848 965 1 ! routine that checks that the arguments are reolly of compatible type. 
3 3 396 ! See the pane Be DBGSPERFORM_TYPEID_CHECK in DBGEVALOP. 
H 51 P 3968 1 OPERATOR rani TABLE i ir. gh? TABLE, 
; B26 Pp 34 1 OPERATOR_ROUTINE (VT CONCAT_T » 
3 385 P 3970 1 SPERATOR“ROUTINE (Sef . Veer" "eet t UNION” Sef _SET, SET_SET), 
3: 3854 P 3971 1 OPERATOR_ROUTINE (L. L. L, L_L), 
3; 3855 P 3%6 1 OPERATOR_ROUTINE (LU, LU iy. RDB LO LU), 
: 36 p 3973 1 OPERATOR-ROUTINE (F, F, fF, A ff. 
3 P 3974 1 OPERATOR_ROUTINE (D. D, D, ADD_0_D), 
3; 3858 P 3975 (1 OPERATOR_ROUTINE (G, G, G, ADD_G_G) 
: 3859 4 OPERATOR-ROUTINE (H, H. H, ADD“H-H)5; 
; 978 1 
3 979 1 ! Define the Operator Routine Table for eae Bi Sberastten. 
3 980 1! mprrest ton can be done to any of the numeric type 
3 981 1! an also be applied to sets, in which case it means set difference. 
: 9 § 1! The additional specifier for pel ee tt a ® Fypeig ¢ chec 
3 9 1! routine that checks that the of connec ible type. 
Hy ; i \ See the routine DBGSPERFORM_ TYP iD. “CHECK Ay DBGE ALOP. 
3 P 39 1 OPERATOR_ROUTINE_TABLE pee _5UB_ TABLE 
3 P 39 1 oreRnTon =ROUTINE (SET, SET? SET, DIFFERENCE_SET_SET, SET_SET), 
: Pp 1 OPERATOR” “Rout (LU, LU, LU, SUB _LU_LU), 
; P 1 OPERATOR-ROUTINE (F, F. ¢, SUB_F_F), 
: P 3991 1 OPERATOR_ROUTINE (D, D. D, SUB_D_D), 
: P 336 1 OPERATOR_ROUTINE (G, G, G, SUB_G_G) 
3 993 1 OPERATOR-ROUTINE (H, H. H, SUB-H7H)5; 
; 995 1 
: 144] 1 ! Define the rator Routine Table for PASCAL Multiplication. 
3 997 1! Multiplication _— Ae applied to any o she pune ric types 
3 104 1! “e” can also ¢¢ to sets, in which case tt means. set difference. 
3 1 ! The additional A... fier for sets refers to a types 
3 $00 1 ! routine that checks that the arguments ar : real compatible type. 
3 ' See the routine n 
4 1:5 h tine DBGSPERFORM_TYPEID_CHECK DBGEVALOP. 
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OPERATOR_ROUTINE 


3 4 1 
H P 4 1 TABLE (PASCAL_MUL_TABL 
; P 4 1 OPERATOR_ROUTIN Fer sett SET, INTERSECT.SET_SET, SET_SET), 
3 P 4 1 OPE ERATOR_ROUTIN (L, L, L, MUL_L_L), 
3 P 4 1 od th RE (LU, LU, LU, AUC LULU), 
: P 4 1 OPERATOR-ROUTINE (F, F, f, MUL_F_F), 
3 P 4008 1 OPERATOR_ROUTINE (D, D0, D. MUL_D-D), 
3 P 4009 1 OPERATOR_ROUTINE (G, G, G, MUL _G_G) 
; 4 19 OPERATOR-ROUTINE (H, H, H, MUL-H-H)5; 
; 4012 1 
3 4 ig 1! Petine the Operator Routine Table for PASCAL Exponentiation. 
3 Q i 1 j i This can be applied to any of the numeric types. 
3 99 P 4 1 4 OPERATOR ROUTINE TABLE Ts -POWER_TABLE, 
$ P 401 1 PERATOR ROUTINE (L, L. ipower. L.L), 
3; 3901 Pp $018 1 OPERATOR OUT! NE (to, POQER_L ih. 
: 90¢ P4019 1 OPERATOR-ROUTINE (F, F, —_ tPOWER-F FDS 
3; 390 P 8 0 1 OPERATOR_ROUTINE (D, D, dD; POWER_D “p); 
3 3904 P 4021 1 OPERATOR_ROUTINE (G, G, G, POWER ay G) 
3 3905 40 é 4 ERATOR-ROUTINE (H, H, H, POWER-H-H)5; 
: $909 4058 
; 3908 4025 1: Define the Operator Routine Table for PASCAL Division. 
3; 3909 40 $ 1 | PASCAL "/" is only for floating division, ‘DIV’’ is used for integer 
; Bie 8 } division. 
; ie p 4059 OPERATOR _ROUTI!: i, TABLE (PASCAL_DIV. TABLE, 
3; 391 P 4030 1 OPERATOR_/- bY UINE (CF, F, F, “DIV-F_F), 
: 3914 P 4031 1 OPERATOR-:. uTINE (D. D. D. DIV_0_D), 
: 3915 P 40 § 1 OPERATOR | “ROUTINE (G, G, 6. DIV_G_G) 
: 916 49 i OPERATOR-ROUTINE (H, H, H. DIVH"H)5; 
3 38 rt 5 ' ! Unary Plus and Minus can be applied to any of the numeric types. 
3 ; r+ } : Define the Operator Routine Table for PASCAL Unary plus. 
: A N L = ‘a bes ° 
4 4 4039 ! OPERATOR_ROUTINE_TABLE (PASCAL_UNARY_PLUS_ TABLE 
: 3924 P 4041 1 ! The following are not Langu age, dogqndent types. This is needed for DEBUG 
3 M 5 4 ? § ! types. For example, DEP/ = ¢ 
3; 39 $ P 4044 1 OPERATOR ROUTING (8, 8. 8. UNARY_PLUS_B), 
: 39 P 4045 1 OPERAT QUTINE (W, , UNARY-PLUS—W), 
: 39, P 4 § 1 OPERATOR “ROUTIN (PoP “ :B UNARY-PLUS-P), 
: 3950 P 4 1 OPERATOR~ ROUTINE (Q, Q, Q@, UNARY_PLUS_Q), 
3 H 1 4 2 3 \ OPERATOR_ROUT INE (0, 0, 0. UNARY~ ~PLUS_0), 
: 39 P 4050 1 OPERATOR_ROUTINE (L, L. L. UNARY rehUS-b2- 
; 39 P 4051 1 OPERATOR “ROUTINE (LU, LU, LU, U PCUS_L), 
: 3935 P 4086 1 OPERATOR-ROUTINE (FF, f, abv Rosch 
3: 39 P 4 1 ERATOR_ROUTINE (D, D, D, UNARY_PLUS_D), 
3; 39 P 4054 1 OPERATOR- “ROUTINE (G, G, G, UNARY_PLUS_G) 
: 39 4055 1 OPERATOR-ROUTINE (H, H, H, UNARY-PLUS_H)5; 
: $920 to89 
3 3941 4058 1 ! Define the Operator Routine Table for PASCAL unary minus. 
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Sep-19 2: AX=-11 Bliss-32 V4.0-7 
et Het Pi $f: 3 82 DEBUG. SRC JDBGEVALOP.B 


OPERATOR_ROUTINE_TABLE (PASCAL_UNARY_MINUS_TABLE, 


! The following are not bengu 7, ag: ss: types. This is needed for DEBUG 
S 


types. For example, DEP/ 


OPERATOR_ROUTINE (8, 8B, B, UNARY 
OPERATOR ROUTINE (W, W, W, UNARY 


_MINUS_B), 
in “MINUS—W), 
OPERATOR-ROUTINE (P,P, P, UNARY-MINUS-P), 
OPERATOR-ROUTINE (Q, Q, Q, UNARY-MINUS_Q), 
OPERATOR-ROUTINE (0, 0, 0, UNARY-MINUS_O), 
OPERATOR_ROUTINE (L, L, L, UNARY MINUS _L), 
OPERATOR-ROUTINE (LU, LU, LU, UNARY MIRUS_L), 
OPERATOR “ROUTINE (F, F, &, UNARY_MIRUS_F); 
OPERATOR-ROUTINE (D, D, D, UNARY-MINUS_D), 
OPERATOR-ROUTINE (G, G, G, UNARY_MINUS-_G) 
OPERATOR-ROUTINE (H, H, H, UNARY-MINUS_H)); 


Define the Operator Routine Table for PASCAL Integer Division. 


: PASCAL has a DIV operator for integer divide. 
OPERATOR_ROUTINE_TABLE (PASCAL_ ee te TABLE, 


OPERATOR_ROUTINE (L, L, L, 
OPERATOR— “ROUTINE (LU, LU, LU, ‘si0 “LO. LU)); 


! MOD and REM can only be applied to integer arguments. 
Define the Operator Routine Table for PASCAL Modulus. 
OPERATOR_ROUTINE_TABLE (PASCAL -MOD_TABLE, 


OPERATOR_ROUTINE (L, L, L, MO ss 
OPERATOR-ROUTINE (LU, LU, LU, MOD “LU_LU)); 


: Define the Operator Routine Table for PASCAL Remainder. 
OPERATOR_ROUTINE TABLE (PASCAL _REM_TABLE, 


OPERATOR_ROUTINE (L, L, L, REM-L.L), 
OPERATOR TROUTINE (LU, LU, LU, RER_ Lo. LU)); 


Equal /Notequal can be eget fos ve to numeric *ypes, sets, enumeration types, 
strincs, einters ey oolea 

The SET_SET, and ENUM_ENUM porancters below 

specify a teeta heat to be done to ensure that oper ePel being compared 
ere reat ty as" of compatible types. See the DBGSPERFORM_TYPEID_CHECK routine 
n 


Define the Operator Routine Table for PASCAL equal. 


OPERATOR = py TABLE ep Ascay Eo EOL. TABLE 


OPERATOR_ROUTINE (SET EQL_SET_SET, SET_SET), 


OPERATOR“ROUT INE (TF, TF "te ‘ fe - an 
OPERATOR-ROUTINE (ENUM, ENUn mM, €GL_{_L, ENUM_ENUM) , 
OPERATOR-ROUTINE (VT, VT, TF. EQL_VT_OTS,. 


$3.1 


Page 76 
2017) 


- & 


SSS SSS esses —_ 
Se Se Oe Oe Oe Be Oe Be Oe Se Be Se Se Se Se Fe Se Se Se Ge Se Be Se Be Se Se Ge Se Se Se Ge Se Se SHS Se Se Ge Se Ge Oe Se Se Se Oe Ge Se Se Se Se Se Se Se Se Se Gee 


vuvUvYU 


vuvVvVvVVVVUU 


vuvvUVvVUVUUVUUUYU 
fot ot ot ot ot ot ot of ot ot ot ot ot ot ot ee et ot et et ee ee ee ek a et ot ot ot ot ot ot ot ot ot ot nt ot bt nt pt nt pt pt pt nt tt tt 
DPX_X_E.E PAA AAA BB BB EE EE AAA NINA RPO RPOPPONINNY 2 SS 


WIR (=O OWNOA NEW 0 OD NAVE WN 0 ODNAUE WN OOS NOU EW" ODOnO 


w 


vwouvvVvvVVUUU 
ed ee ad ae ed ee ee ee a ce ee ed ene ee ce ce ce cd ee ee ee ee ee ee ee ee ee el ce el ee ce cl ce cc ce ce ce te ee el cl cd ee ce ee ed 


ce me ee em me a ed ed od = od 8 = 


ifesep-1964 90:52:25 yaxet1 gti 


; Define the Operator Routine Table for PASCAL not equal. 
OPERATOR_ROUTINE_TABLE eee | ~NEQ TABLE 


OPERATOR ROUTINE (SET, SET, TF, NEQ_SET_SET, SET_SET), 
OPERATOR-ROUTINE (TF, TF te » NEQ 

OPERATOR-ROUTINE (ENUM, ENUM, TF,-NEG_L_L, ENUM_ENUM), 
OPERATOR-ROUTINE (VT, VT, TF. Ne £6 Vi UTS, 
OPERATOR-ROUTINE (L, L, fF, NEQ “bs 
OPERATOR-ROUTINE (LU, LU, fF, NEQ7L.L), 
OPERATOR-ROUTINE (F, F, fF, NEQ_F-FS, 
OPERATOR-ROUTINE (D. D. TF. NEQ-D~D), 
OPERATOR-ROUTINE (G, G, TF. NEQ~G~G) 

OPERATOR-ROUTINE (H, H, TF, NEQ-H-H)5; 


! Define the Operator Routine Table for PASCAL greater than or equal to. 
! Greater/equal can be applied to numeric types, sets, enumeration types, 
' strings, and Booleans Ss. 

; On sets, it means ‘‘contains"’. 


OPERATOR ROUTINE TABLE (PASCAL_GEQ rane 


OPERATOR_ROUTINE (SET, | ; ase _SET, SET_SET), 

OPERATOR-ROUTINE (TF, fF, éea 

OPERA} OR~ROUTINE (ENUM. ven M. Ps GeO, {_L, ENUM_ENUM), 

OPERATOR-ROUTINE (VT, VT Ged_v TOTS, 
ERATOR-ROUTINE (L, L, fF Fee ae 

OPERATOR-ROUTINE (LU, LU tr CEO" “tutu, 
ERATOR-ROUTINE (F, F, fF, Ged Q_FqF); 

OPERATOR-ROUTINE (D. D. TF. GEQ7D~D). 

OPERATOR-ROUTINE (G. G. TF. GEQ7G~G) 

OPERATOR-ROUTINE (H. H, TF. GEQ"H7H)S; 


: Define the Operator Routine Table for PASCAL great than. 

! Greater than can be applied to numeric types, enumeration types, 
: strings, and Booleans. 

OPERATOR ROUTINE TABLE (PASCAL ee at, 


PERATOR_ROUTINE (TF, TF 
OPERATOR ROUTINE (ENUM, EN nun F ag ENUM_ENUM) , 
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! Define the Operator Routine Table for PASCAL less than. 
: Less than can be applied to numeric types, enumeration types, 
strings, and Booleans. 


OPERATOR ROUTINE TABLE (PASCAL_LSS_TABLE, 
OPERATOR_ROUTINE (TF, TF, TF, CSS_L_L), 
OPERATOR-ROUTINE (ENUM, ENUM, TF, ~LSS_(_L, ENUM_ENUM), 
OPERATOR-ROUTINE (VT, VT, TF, LSS_VT_OTS, 
TOR-ROUTINE (L, L, fF, CSS_L7L)> 
f TOR-ROUT INE (LU, Cu, fF, LSS-LU-LUD, 
OPERATOR-ROUTINE (F, F, fF, LSS_F-F). 
OPERATOR-ROUTINE (D. D, TF. LSS-D-D). 
OPERATOR-ROUTINE (G, G. TF. LSS-G~G) 
OPERATOR-ROUTINE (H, H, TF, LSS-H-H)5; 


! Define the Operator Routine Table for PASCAL less than or equal to. 
! Less/equal can be applied to numeric types, sets, enumeration types, 
' strings, and Booleans. 

On sets it means ‘‘is contained in’’. 


OPERATOR_ROUTINE TABLE (PASCAL LEQ. TABLE 


OPERATOR_ROUTINE (SET, F> LEQ_SET_SET, SET_SET), 
OPERATOR-ROUTINE (TF, TF, fF, LEG_L7L), 
OPERATOR-ROUTINE (ENUM, ENUM, TF,-LEG L_L, ENUM_ENUM), 
OPERATOR-ROUTINE (VT, VT, TF, LEG_VT_OTS, 
OPERATOR-ROUTINE (L, L, TF, LEG L“L); 

OPERATOR-ROUTINE (LU, LU, TF, LEQ“LU_LU), 
OPERATOR-ROUTINE (F, F, TF, LEQ_F-F); 

OPERATOR-ROUTINE (D, D, TF, LEQ"D~D). 

OPERATOR-ROUTINE (G, G. TF. LEQ7G~G) 

OPERATOR-ROUTINE (H, H. TF. LEQ7H"H)S; 


! The logical operators can only be applied to Booleans. 

: Define the Operator Routine Table for PASCAL not. 

OPERATOR_ROUTINE TABLE (PASCAL_NOT_TABLE 
OPERATOR_ROUTINE (TF, TF, TF, ROT_L)S; 

: Define the Operator Routine Table for PASCAL and. 

OPERATOR_ROUTINE TABLE (PASCAL_AND_TABLE, 
OPERATOR_ROUTINE (TF, TF, TF, AND_L_L)); 

Define the Operator Routine Table for PASCAL or. 

OPERATOR ROUTINE TABLE (PASCAL_OR_TABLE, 
OPERATOR_ROUTINE (TF, TF, TF,~OR_L_L)); 


! Define the Operator Routine Table for PASCAL Set IN. 
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! Sets can be composed of integers, characters, Booleans, or 

i enumeration types, so we allow the wey ¢ whether an element 

! of one of those cypes is in the set. The typeid_check routine 
C 


i is present to che that the type of the left afg matches the 
element type of the set. 


OPERATOR ROUTINE TABLE (PASCAL_I¥ oat 


OPERATOR ROUTINE (i, SET, TF Nosef 1t! SET_SET) 
OPERATOR“ROUTINE (LU, SEf, 1, T Sef, SET_SETS, 
OPERATOR-ROUTINE (1, SET, TF inet SET, SET_SET) 
OPERATOR-ROUTINE if, SET rf. TA SET_SEf, SET_SETS 
OPERATOR-ROUTINE (ENUM sec er tr! IN_SET_SET, SET_SET)); 


Define the Operator Routine Table for the PASCAL built-in function SUCC. 


OPERATOR_ROUTINE_TABLE (PASCAL_SUCCESSOR_TABLE, 
OPERATOR_ROUTINE (ENUM, ENOM, ENUM, SUCC_ENUM, ENUM_ENUM)); 


: Define the Operator Routine Table for the PASCAL built-in function PRED. 


OPERATOR ROUTINE TABLE (PASCAL PREDECESSOR TABLE, 
OPERATOR_ROUTINE (ENUM, ENOM, ENUM, PRED_ENUM, ENUM_ENUM)); 


: Define the Operator Information Table for PASCAL. 
OPERATOR_INFO_TABLE (PASCAL_OPINFO_TABLE, 


! The fot lowing arithmetic operators use the normai hierarchy table and 
the incompatibility table. 


OPERATOR INFO_ENTRY 
PASCAL_ADD_TABLE, PASCAL_HIER_TABLE, PASCAL_INCOMP_TABLE), 

OPERATOR’ INFO_ENTRY 

SUBTRACT, PASCAL _SUB_TABLE, PASCAL_HIER_TABLE, PASCAL_INCOMP_TABLE), 
OPERATOR INFO. ENT 
OPERATOR. INFO” “PASCAL MUL_TABLE, PASCAL_HIER_TABLE, PASCAL_INCOMP_TABLE), 

(POWER_OF> PASCAL POWER_TABLE, PASCAL_HIER_TABLE, PASCAL_INCOMP_TABLE), 
OPERATOR IRFO'E 
IVIDE, PASCAL DIV_TABLE, PASCAL_HIER_TABLE, PASCAL_INCOMP_TABLE), 


OPERA TOR. I 
openaton rapLOs. Ph PASCAL_UNARY_PLUS_TABLE, PASCAL_HIER_TABLE, PASCAL_INCOMP_TABLE), 
(UNARY "AIRUS. PASCAL UNARY_MINUS_TABLE, PASCAL_HIER_TABLE, PASCAL_INCOMP_TABLE), 


! DIV, MOD, and — 2 ereve enty on sategers and thus use the smaller 
i hierarchy table H It would also be OK to use the HIER table 
but a smailer Be TA. the code run ” taneer. 


OPERATOR. INFO_ENTR 
T“DIVIBE, PASCAL INTDIV_TABLE, PASCAL_HIER1_TABLE, TABLEBASE), 
OPERATOR” INFO_ENT 
pOLUS “FASCAL MLO_TABLE, PASCAL_HIER1_TABLE, TABLEBASE), 
OPERATOR_INFO_ENTRY 
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(REMAINDER, PASCAL_REM_TABLE, PASCAL_HIER1_TABLE, PASCAL_INCOMP_TABLE), 


' The relational operators all use the normal HIER table and the 
} normal incompatibility table. 


OPERATOR_INFO_ENTRY 
(EQUAL, PASCAL EQL_TABLE, PASCAL_HIER_TABLE, PASCAL_INCOMP_TABLE), 
OPERATOR_INFO_ENTRY 
(NOT-EQUAC, PASCAL_NEQ_TABLE, PASCAL_HIER_TABLE, PASCAL_INCOMP_TABLE), 
OPERATOR—INFO_ENTRY 
“THAN, PASCAL_LSS_TABLE, PASCAL_HIER_TABLE, PASCAL_INCOMP_TABLE), 
OPERATOR” INFO_ENTRY 
(GTR-THAN, PASCAL_GTR_TABLE, PASCAL_HIER_TABLE, PASCAL_INCOMP_TABLE), 
OPERATOR~INFO_ENTRY 
(LSS"EQUAC, PASCAL_LEQ_TABLE, PASCAL_HIER_TABLE, PASCAL_INCOMP_TABLE), 
OPERATOR—INFO_ENTRY 
(GTR-EQUAC, PASCAL_GEQ_TABLE, PASCAL_HIER_TABLE, PASCAL_INCOMP_TABLE), 


! The logical operators only operate on the type TF. They thus need no 
hierarchy table and no incompatibility table. 


OPERATOR_INFO_ENTRY 

(AND; PASCAL_AND_TABLE, TABLEBASE, TABLEBASE), 
OPERATOR_INFO_ENTRY 

(OR, PASCAL _OR_TABLE, TABLEBASE, TABLEBASE), 
OPERATOR_INFO_ERTRY 

(NOT, PASTAL_NOT_TABLE, TABLEBASE, TABLEBASE), 


! Set member is only allowed between the pairs given in the operator 
table above, with no implicit conversions. 


OPERATOR_INFO_ ENTRY 
(SET-MEMBER, PASCAL_IN_TABLE, TABLEBASE, TABLEBASE), 
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! CONVERT gets used to convert subscripts to the appropriate type. 
! We speci f the HIERD table to allow the same conversions 
that we allow on a DEPOSIT. 


OPERATOR_INFO_ENTRY 
(CONVERT, TABLEBASE, PASCAL_HIERD_TABLE, PASCAL_INCOMP_TABL<?, 


! DEPOSIT gets used in the DEPOSIT operator. The HIERD table allows, 
! for the most part. the same combinations that the PASCAL compiler 
: allows on assignment. 


OPERATOR_INFO_ENTRY 
(DEPOSIT, TABLEBASE, PASCAL_HIERD_TABLE, PASCAL_INCOMP_TABLE), 


! The identity operator is called at the end of am EVALUATE command 
! if we still have a Primary and we need to convert it to a Vaiue 
Descriptor. 


OPERATOR. INFO_ENTRY 
(IDENTITY, TABLEBASE, TABLEBASE, TABLEBASE), 


! Built-in functions use only the tables required by the particular — 
! function. Most need not use the hierarchy table or the incompatibility 
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OPERATOR_INFO_ENT 
(SUCCESSOR, PASCAL SUCCESSOR TABLE, TABLEBASE, TABLEBASE), 


OPERATOR_INFO ENTR 
(PREBECESSOR, PASCAL _-PREDECESSOR_TABLE, TABLEBASE, TABLEBASE) 
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PLI OPERATOR INFORMATION TABLES 


This section contains the Operator Routine and Type tables needed to 
evaluate expressions in the PLI Language. 


Summary of Data Types 
Computational data types 
Arithmetic data types 


- Bm ad panery (integers) 
FIXED CBINARY) [(p)) 1 <=p<=7_ (byte) 
<=p<=15 (word) 

6<=p<=31_(lLongword) 

default=(31) 

Note: all integer constants are represented as fixed-point decimal. 


Be ty: decimal (decimal Pep fractions) 


CFIXED)] DECIMAL C(pf,qJ)] 1<=p<=31 
0<=q<=p 
default=(10,0) 
- floos tng. oint (binary and decimal) 
FLOAT CDECIMAL/BINARY) [(p)] 
BINARY: default 1<sp<2113 p: no. of bits in mantissa 
default=(24) 
DECIMAL 1<=p<=34 p: no. of digits in mantissa 
default=(7) 
floatin int value sign bits exponent bits fractional bits 
LE Cicepee?) 7 (1eepeese) ot i é 
oD (8<=p<=15)/(25<=p<=53) 1 ; 
-G (same as gbove? 11 
oH (16<=p<=34)/(54<=p<=113)1 15 113 
- pictures (fixed-point data stored in character form) 
ICTURE ‘picture’ 
-Gharccter~ese ice data 
CHARACTER [(n)] CVARYING) n<=32767 
default=(1) 
Biempge ica data 
BIT C(n)] CALIGNED) n<=32767 bits 
default=(1) 


PLI pads the bit-string value in the direction of least significance with 
zeros or truncates the least significant bits from the bit-string value. 


note: DECLARE agit BIT (10); 
wit = °1011'B; 
(high memory) 6000001101 (low memory) 
*character-string'Bn is not supported. 


4 
Mer 3epn 188s 80:8z:32 | Ha, Oki geese ye sO-28s 


Pane BS 


BESESESESES 


| 1 
biel if seoe 19H 39:32:52 — Yokaug. eke Sopeevacor 1039, 1 Page 18) 


note: 
ev fixbin’g (in PLI is not allowed, we perform the operation) 
ev fixbine2.2 (in PLI is not allowed, we perform the operation) 


fixed-point binary/fixed-point decimal --> fixed-point float. 
picture --> fixed decimal with precision and scale. 


AAAI 


Offsets and Pointers: ptr <- ptr, offset <- offset, 
ptr <- offset, offset <- ptr (offset must have been 
declared with an area) 


Rules for conversion of data 
target\source { Arithmetic i Pictured : Bit String : Character String 


Arithmetic 

FIXED BINARY (fixedoverflow) Pictured Nonnegat ive Arithmetic 

FIXED DECIMAL src p > dst q_ values have FIXED BINARY constant 
FIXED (fixedoverflow) (error) 


4294 4410 1! (n is with bases other than 2. 8/81:0,1;82:0,1,2,3 

é 95 cat} B3:0...7:84:0...F5 

4 38 1018 1 ! .Noncomputational data types 

4298 4414 1! 

4299 4415 1! . Entry constants and variables 

4 ra} 1! .Label constants and variables 

4301 441 1! File constants and variables 

4 ¢ reat 1! Pointers 

4 441 1! Areas and offsets 

4 4420 1! 

4305 4421 1! Aggregates 

4 Be 44 § 1! .Arrays 

4 44 1! Structures 

4308 4424 1! 

4309 4425 1 ! Operators and Operands 

4310 44 § 1! .Arithmetic (+ = / ® ##) Arithmetic operands 

4311 44 1! .Relational (> < *> *< d= <= computational operands only 
4 \ 4428 1! s *s) two operands of the same type of all 
431 4429 1! .Logical (*@ i Bit-string qperends 

? 13 3 ? ; -Concatenation (:!) Bit-string/Character-string 
2 \$ re ¢ : : Note: / should not be used to divide two fixed-point binary operand. 
4318 4434 1 ! Precedence: 

4319 4435 1! #@ #(unary) -(unary) * * / + = {i > <*> *< = “= <= d= g 

4320 44 6 4 

$3 1 44 1 ! Conversion: 

4 § 4438 1! .If any operand has BINARY, the derived base is BINARY. Otherwise, the 
$35 4439 1! derived base is DECIMAL. 

$3 4 4440 1! .If any aperens has FLOAT, the derived scale is FLOAT. Otherwise, the 
? 36 ree : : derived base is FIXED. 

t3 $ 44435 1 ! Conversion and arithmetic operation: 

4 4444 1! fixed-point decimal integer --> fixed-point binary (with zero scale) if 
4 4445 1! one operand is fixed-point binary. 

4 4446 1! 

4 4447 1! 

4 1 i 

4 1! 

4 1! 

4 1! 

4 1! 

4 1! 

4 1! 

4 1! 

4 1! 

4 1! 

4 1! 

4 1! 

4 1! 

4 1! 

4 1! 

4 1! 

4 1! 

4 1! 

4 1! 
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4351 4467 ' FIXED BINARY (fixedoverflow) DECIMAL rc yolue > invalid numeric 
4 § 446 ‘ src value > format, gees ° characters 
4 44 4 dst storage followed ol lowed => dst type 
4354 44 » ! the same the same (fixedover flow) 
4355 447 ' FIXED DECIMAL (truncated) rules as rules as src p is too 
4 $ 467 : src q > wt q arith. => arith. => large 
4 447 ; (padded 0 right) arith. arith. (truncated) 
? : tehe src q < dst q src q is large 
4 447 ! FLOAT (overflow) null is 0 null/spaces is 0 
4361 447 ‘ src ivalue: > 
4 ¢ 447 ! dst flt value 
4 447 ! (under f Low) 
4 4480 : src ivalue: 
: 5 a 1 : is too small 
4 4h ‘ ! Bit String takes absolute same as (padded 0) character string 
4 4484 ! value => th. srcnc< of Os and Is => 
4369 4485 ' nance BINARY dst n bit-string 
4370 4486 ! (31) (truncated) (error) 
4371 4487 ‘ (fixedover flow) src n > any other char. 
4 % 4488 ! src value > dst n 
7 4489 ¢ dst value 
74 4490 : sign and q are 
75 4491 : lost during 
3/8 ret } the conversion 
378 4494 Char. String FIXED BINARY => character bit string -> (padded trailing 
79 FIXED DECIMAL string char. string spaces) 
ets LOAT BINARY => represent. intmed. > 
1 449 FLOAT DECIMAL is used dst (not varying) 
(truacted) 


oo 
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dst > intmed. 
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4 i 
384 : 
5 4501 ! Pictured src => fixed decimal 
$206 ' FIXED DECIMAL 
38 450 : 
4504 ‘ 
89 4505 4 
90 $338 ! This section contains the Operator Routine and Type tables needed to 
4. 4308 : evaluate expressions in the PASCAL Language. 
3 4509 ! PLI OPERATOR INFORMATION TABLES 
94 $219 4 
95 451 : 
t21¢ ! This section contains the Operator Routine and Type tables needed to 
9 451 ! evaluate expressions in the PLI Language. 
98 4514 : 
99 4515 : 
400 $218 
401 451 
rrr $218 : Define a Type Mapping Table for PL/I. 
4404 P 4520 TYPE MAPPING TABLE (PLI_MAP_TABLE, 
4405 P 4521 TYPE_GRAPH_EDGE (PTR, Ly, 
rot P 45 § TYPE_GRAPH_EDGE (TF, V), 
440 45 0); 
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| 
| 
rae 
: 4410 4 § 1 ! Define the Type pncempet oot) Sty Table for PL/I. This prevents mixing | 
: root ? : D and G types in an expression or deposit. 
: te18 P 4 | 1 TYPE INCOMP_TABLE (PLI_INCOMP_TABLE, | 
3 4414 P 4550 1 TYPE_GRAPH_EDGE (D> G), 
3 4415 4531 1 0); | 
: te1e re : i 
: <ai8 4534 1! Define the PL/I Speers Type Conversion Table. This allows proper | 
: 1238 $2 2 } } handling of PL/I bit-strings. 
> 4421 P 4537 1 LANG_CVT_TABLE (PLI_CVT_TABLE 
> 44 é P 4538 1 CANG-CVT_ENTRY TPLI“CVT, ANY, V), 
3: 44 P 4539 1 LANG_CVT_EN (PLI_LCVT, V, ANY) 
> 6426 P 4540 1 LANG-CVT-ENTRY (PLI-CVT, ANY, VUS, 
3 4425 P 4541 1 LANG_CVT_LENTRY (PLI_CVT, VU, ANY), 
: 4426 P $286 1 LANG_CVT_ENTRY (PLI_-CVT, ANY, T), 
3: 4427 P 4543 1 LANG_CVT_ENTRY (PLI_CVT, T, ANY) 
3 4428 P 4544 1 LANG-CVT-ENTRY (PLI-CVT, ANY, VTS, 
3 4429 P4545 1 ANG_CVT_ENTRY (PLI-CVT, VT, ANY), 
: 44 P 4546 1 LANG-CVT-ENTRY (PLI-CVT, PICT, ANY), 
> 4431 P 4547 1 LANG_CVTLENTRY (PLIZCVT, ANY, PICT), 
: ret 4548 1 ¥ 
A 88 | 
+ 4435 4551 1 ! Define the Type Conversion Information Table for PLI. PL/I bit-strings | 
s Pek) 1226 : require PL/I specific conversions (they are stored in reverse order). 
: 4438 P 4554 1 CONVERSION_INFO_TABLE (PLI CVTINFO_TABLE, | 
3 4439 4555 1 CONVERSION_INFO_ENTRY TPLI_MAP_TABLE, PLI_CVT_TABLE)); | 
a He 1 | 
+ 6446 4558 1 ! Define the Type Hierarchy Table for PLI. 
3 444 4559 1! 
: tees tser | 
; =“ $286 ' Define a Type Hierarachy Table for PLI. 
: 448 ep 4364 TYPE_HIERARCHY_TABLE (PLI_HIER1_TABLE, | 
: 4450 P $308 1 ! The following 4 entries are made to validate the valid operand. To 
$ $62! ‘ $28 { decide the target type, there is additional code to help. 
3 445 p 4369 1°‘ TYPE_GRAPH_EDGE (T, P) 
> 6454 P 4570 1 TYPE~GRAPH-EDGE (vf, PS, 
3 4455 P4571 1 TYPE-GRAPH-EDGE (V, P) 
: 445 P i378 TYPE~GRAPH-EDGE (VU, PS, | 
3 4458 P4574 1 TYPE_GRAPH_EDGE (PICT, P), 
> 6459 Pp 4575 1 TYPE“GRAPH-EDGE (B, WS, | 
3: 4460 Pp $278 1 TYPE_GRAPH_EDGE (W, P), 
3 4461 P4577 1 TYPE_GRAPH_EDGE (P, L), 
3: 466 P $278 1 YPE_GRAPH_EDGE (L, F), 
3 446 Pp 4579 1 TYPE_GRAPH_EDGE (L, FIXED), 
3 4464 P 4580 1 TYPE_GRAPH_EDGE (F, D), 


css tia cit aaitciaatm 


ogceynor SIS SRE WUGUL EASED TS, Bt 


; 4465 P4581 1 TYPE_GRAPH_EDGE (F, G), 

: 4466 P 4 é 1 TYPE-GRAPH-EDGE (FIXED, H), 

> 446 P4 1 TYPE-GRAPH-EDGE (D, H). 

> 46 P 4 1 {YPE “GRAPH-EDGE (G, H), 

3; 4469 4585 1 

: 4470 4 $ 1 

: 44671 4 1 

3 ret! 2 3 ! Define a Type Hierarachy Table for PLI. (Relational) 
5 6674 P 4590 1 TYPE_HIERARCHY_TABLE (PLI_HIER2_TABLE, 
> 4475 Pp 4591 1 TYPE_GRAPH-EDGE (VT, P), 

> 447 P 49¢ 1 TYPE~GRAPH-EDGE (WT. 1), 

+ 447 P 4 1 TYPE-GRAPH-EDGE (T, P) 

: 4478 P4594 1 TYPE-GRAPH-EDGE (VU, PS, 

> bh. P4595 1 TYPE-GRAPH-EDGE (VU, T) 

: 4480 Pp 4396 1 TYPE-GRAPH-EDGE (VU. VTS, 

+ 6481 Pp 4597 1 TYPE-GRAPH-EDGE (VU, V), 

> 448 P4598 1 TYPE-GRAPH-EDGE (V, P), 

> 448 Pp 4599 1 TYPE-GRAPH-EDGE (V, T) 

: 4484 P 4600 1 TYPE-GRAPH-EDGE (V, VTS, 

: 4485 P 4601 1 

+ 6486 Pp 460¢ 1 TYPE_GRAPH_EDGE (PICT, P), 

> 4487 P 4603 1 TYPE-GRAPH-EDGE (B, WS, 

+ 4488 P 4604 1 TYPE-GRAPH-EDGE (W, P), 

+ 4489 P 4605 1 TYPE~GRAPH-EDGE (P, L). 

: 6490 P 4606 1 TYPE-GRAPH-EDGE (L, F), 

> 4491 P 4607 1 TYPE-GRAPH-EDGE (L, FIXED), 

> 449 P 4608 1 TYPE-GRAPH-EDGE (F. D), 

+ 449 P 4609 1 TYPE-GRAPH-EDGE (F., G), 

3 4494 P 4610 1 TYPE-GRAPH-EDGE (FIXED, H), 

: 6495 P 4611 1 TYPE~GRAPH-EDGE (D, H). 

> 6496 P 4612 1 TYPE_GRAPH-EDGE (G, H), 

: 4497 4613 1 0): 

> 4498 4614 1 

+ 4499 4615 1 

3 $300 rod : Define a Type Hierarachy Table for PLI. (Logical) 
; 430¢ P 4618 1 TYPE WIERARCHY _TABLE (PLI_HIER3_TABLE, 
+ 450 P 4619 1 TYPE_GRAPH-EDGE (8, VJ, 

+ 6504 P 4620 1 TYPE GRAPH EDGE (Ww, V), 

: 4505 P 4621 1 PE“GRAPH-EDGE (L. V). 

: 4506 P 46 g 1 TYPE~GRAPH-EDGE (P, V). 

: 450 P 4623 1 YPE-GRAPH-EDGE (F, V), 

: 4508 P 4624 1 TYPE-GRAPH-EDGE (D, V), 

: 6 P 4625 1 TYPE~GRAPH-EDGE (G, V). 

: 6510 P 46 6 1 T APHEDGE (H, V), 

+ 6511 P 4627 1 TYPE™ ~GRAPH “EDGE (PICT, V), 

: 4o1¢ P 46 5 1 TYPE-GRAPH“EDGE (T, V5 

> 451 P 4629 1 TYPE-GRAPH-EDGE (vf, v5, 

+ 6514 P 4630 1 TYPE-GRAPH_EDGE (VU, V), 

+ 6515 4631 1 0): 

: 4516 46 : 1 

; 651 46 1 

: $218 rr : } Define a Type Hierarachy Table for PLI. (Concatination) 
: £320 P 46 ¢ 1 TYPE_HIERARCHY_TABLE (PUI HIER4_TABLE, 
+ 6521 P 4637 1 TYPE_GRAPH“EDGE (B, TT, 
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1 
' 
Define the Operator Routine Table for PLI addition. 
OPERATOR_ROUTINE TABLE (PLI ADD_TABLE’ 


OPERATOR_ROUTINE (8, 6,°B, ADD_B 8), 

OPERATOR-ROUTINE (W, W, W, ADD WoW), 

OPERATOR-ROUTINE (L. L. L. ADDUL“L), 

OPERATOR-ROUTINE (F, F, F, ADD-F-F), 

OPERATOR-ROUTINE (D, D. D. ADD"D"D), 

OPERATOR-ROUTINE (G, G, G. ADD"G-G), 

OPERATOR-ROUTINE (H, H. H. ADD"H"H), 

OPERATOR-ROUTINE (P. P. P. ADD“P~P) 

OPERATOR-ROUTINE (FIXES, FIXEDT FIXED, ADD_FIXED_FIXED)); 


Define the Operator Routine Table for PLI subtraction. 


OPERATOR_ROUTINE He (PLI_SUB me 
OPERATOR_RO UTIN NE (8, 8. » SUB 
. OPERATOR-ROUTINE (W, W, W, SU 
OPERATOR_ROUTINE (L, L, L, SUB_ 
OPERATOR_ROUTINE (F, F, F, SU 
RAT OUT 
$s 


; oe 
. GS, 6. 

. p P, SUB” 
fixed, FIXED? F 


J 
—wrOO nr xo. 


UB" 
B- 
UB 
UB 
UBL 


> ee ee ae a 


fle © = ee ees 


OPERATOR~ROUT INE D, SUB_FIXED_FIXED)); 


Define the Operator Routine Table for PLI multiplication. 


OPERATOR ROUTINE TABLE (PLI_MUL_TABLE 
OPERATOR ROUTINE (B, 8. 8. B 
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F 
D, D, MUL_D_ 
G, G, MUL_G 
H, H, MUL Pe 


we ewe we 
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D, MUL_FIXED_FIXED)); 


Define the Operator Routine Table for PLI division. 
OPERATOR_ROUTINE Ht LI piv TABLE 


OPERATOR ROUTINE (8, 6,78, DIV.6.6), 

SPERATOR-ROUTINE (Ww, W. W. DIVTWTW). 

OPERATOR-ROUTINE (L. L. L. DIVTLTL). 

OPERATOR-ROUTINE (F. F. F. DIVF-F). 

OPERATOR-ROUTINE (D. D. D. DIV7D7D). 

OPERATOR-ROUTINE (G. G. G. DIV"G"G). 

OPERATOR-ROUTINE (H. H, H. DIVTH"H). 

OPERATOR-ROUTINE (P. P, P. DIV7P~P) 

OPERATOR-ROUTINE (FIXES, FIXED? FIXED, DIV_FIXED_FIXED)); 
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; 46 47 1 
; i $f g ! Define the Operator Routine Table for PLI unary plus. 
; rete c rtf 5 : OPERATOR_ROUTINE TABLE (PLI_UNARY_PLUS_TABLE, 
; 4641 P 47 5 1! The following are not benau 1 Sopgndent types. This is needed for DEBUG 
3; 464 P 4758 1! types. For example, DEP/QUAD L= +1 
; 464 P 4759 1 | 
3 4644 P 4760 1 OPERATOR_ROUTINE (Q, Q, Q, UNARY_PLUS_Q), 
E 4669 P 4761 OPERATOR-ROUTINE (0, 0, 0, UNARY-PLUS_O), 
3 4647 P 1388 1 OPERATOR_ROUTINE (8, 8, B, UNARY_PLUS_B), 
3; 4648 P 4764 1 OPERATOR-ROUTINE (W, W, W, UNARY_PLUS_W), 
3 4649 P 4765 1 OPERATOR_ROUTINE (L, L, L, UNARY_PLUS_L), 
3; 4650 P 4766 1 OPERATOR_ROUTINE (F, F, F, UNARY_PLUS_F), 
3; 4651 P 4767 1 OPERATOR_ROUTINE (D, D, D, UNARY_PLUS_D), 
3; 465 P 4768 1 OPERATOR_ROUTINE (G, G, G, UNARY_PLUS-G), 
3; 465 P 4769 1 OPERATOR_ROUTINE (H, H, H, oe =pLUS “H), 
> 4654 P 4770 1 OPERATOR_ROUTINE (P, P, P LUS_P), 
3 4655 4771 1 OPERATOR-ROUTINE (FIXED, FixeD. Watts UNARY_PLUS_FIXED)); 
3; 4656 arte 1 
3; 4657 4773 1 
3 1e28 oore : } Define the Operator Routine Table for PLI unary minus. 
: reas : errs : OPERATOR_ROUTINE_TABLE (PLI_UNARY_MINUS_TABLE, 
3; 466 P 4778 1°! The following are not sengy 7, Sopgndent types. This is needed for DEBUG 
3; 466 P 4779 1°! types. For example, DEP/QUAD L= +1 
3: 4664 P 4780 1! 
: 4665 P 4781 1 OPERATOR_ROUTINE (Q, Q, Q, UNARY_MINUS_Q), 
; 2686 4 ors : OPERATOR_ROUTINE (0, 0, 0. UNARY-MINUS_O), 
3 4668 P 4784 1 GPERATOR_ROUTINE (8, B, 6, UNARY_MINUS_B), 
3: 4669 P 4785 1 OPERATOR_ROUT INE (Ww, W, W, UNARY_MINUS_W), 
3; 4670 P 4786 1 PERATOR_ROUTINE (L, L, L, UNARY_MINUS_L), 
3: 4671 P 4787 1 OPERATOR_ROUTINE (F, F, F, UNARY_MINUS_F), 
3: 467 P 4788 1 OPERATOR_ROUTINE (D, D, D, UNARY_MINUS_D), 
3; 467 P 4789 1 OPERATOR_ROUTINE (G, G, G, UNARY_MINUS_G), 
: 4674 P 4790 1 OPERATOR_ROUTINE (H, H, Re UNARY_MINUS_H), 
3: 4675 P 4791 1 OPERATOR_ROUTINE (P, P, P, UNARY_MINUS_P) 
> 4676 4798 1 OPERATOR-ROUTINE (FIXED, FIXED, FIXED, UNARY_MINUS_FIXED)); 
3; 4677 4793 1 
3: 4678 4794 1 
3; 4679 4795 1 ! Define the Qperator Routine Table for PLI exponentiation. 
; 4680 pth 1 ! Exponentiation has some mixed forms. For example, if you raise a 
3; 4681 4797 1! floating number to an sateger power, you do not mecoeser thy 
3: 468 ore 1 ! want to first convert the int i float. Instead, a special 
3 ree ts 1445 : routine indices such as POWER_F_L are provided to oo the right thing here. 
3: 4685 P 4801 1 OPERATOR_ROUTINE_TABLE nd =Power TABLE. 
: $086 P £808 1 PERATOR_ROUTINE (F, R_F_L), 
3 4 P 4 1 OPERATOR_ROUTINE (D; 4 POW R_O_L), 
3; 4688 P 4804 1 OPERATOR_ROUTINE (G, ig» POWER _G_L), 
3: 4689 P 4 B? 1 OPERATOR_ROUTINE (H, L, H, POWER_H_L), 
3: 4690 P 4 $ 1 OPERATOR_ROUTINE (F, F, F, POWER_F_F), 
3; 4691 P 4807 1 OPERATOR_ROUTINE (D, F, D, POWER_D_F), 
3: 4692 P 4808 1 OPERATOR_ROUTINE (F, D, D, POWER-F-D), 
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OPERATOR_ROUTINE (D, D, D, POWER_D_D), | 
OPERATOR-ROUTINE (G, G, G, POWER-G-G) 
OPERATOR-ROUTINE (H, H, H, POWER-H-H)5; 


! Define the Operator Routine Table for PLI concatenation. 
Concatenate can only be done on character or bit strings. 


OPERATOR ROUT INE Hh a (PLI_CONCAT ae 


ERATOR_ROUTINE ) 
OPERATOR™ -ROUTINE (v Vv. V. CONCAT “iF. Tf)); 


In the tables for the comparison operators, we allow strings to be 
compared, and also all the numeric types. 


Define the Operator Routine Table for PLI equal. 


Qeocacocace 


OPERATOR ROUTINE TABLE (PLI_EQL_TABLE, 
ERATOR_ROUTINE (8, 6, TF, EQL_8.B), 
OPERATOR-ROUTINE (We W, TF, EQL-WoW), 
OPERATOR-ROUTINE (L. L. TF. EQL-L“L). 
OPERATOR-ROUTINE (F, F. TF. EQL-F-F), 
OPERATOR-ROUTINE (D. D. TF. EQL-D~D), 
ERATOR-ROUTINE (G, G, TF, EQL~G-G), 
OPERATOR-ROUTINE (H. H. TF. EQL-H"H), 
OPERATOR-ROUTINE (P, P. TF. EQL-P~P) 
ERATOR-ROUTINE (FIXED, FIXED, TF, EQL_FIXED_FIXED), 
OPERATOR-ROUTINE (T te TF, EQL_T -{). 
OPERATOR-ROUTINE (vf, fF, EQL“VT'vT), 
OPERATOR-ROUTINE (V, V, "te é€at Tr. TF) 
OPERATOR-ROUTINE (VU, VU, TF, EOL. TF rt), 


This one should have non-computational data item as well. 
entry, label, 


); 


file, pointer (which we map into L), area and offsets 


Define the Operator Routine Table for PLI not equal. 
OPERATOR_ROUTINE_TABLE (PLI ~HEQ_ TABLE, 
OPER ROUTINE ( NEQ 


ATOR_ROUT! mi -B/B), 
OPERATOR-ROUTINE (W. W, tf “u7w). 
OPERATOR-ROUTINE (L. L. TF. NEQL-L). 
OPERATOR-ROUTINE (F. F. TF. NEQ~F-F), 

PERATOR-ROUTINE (D. D. TF. NEQ"D-D), 
OPERATOR-ROUTINE (G, G. TF. NEQ"G-G). 
OPERATOR-ROUTINE (H. H. TF. NEQ"H-H). 

TOR“ROUTINE (P. P, TF. NE = Pe 
OPERATOR-ROUTINE (FIXED, FAKED,” NEQ_FIXED_FIXED), 
OPERATOR-ROUTINE (T, T, f fy" 

ATOR-ROUTINE (vf, VT tr “NEG VT‘vt), 
OPERATOR-ROUTINE (V, V, fF TF_TF) 
OPERATOR-ROUTINE (VU, VU “4 te Enea _TF "ih, 
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: 4750 P 4 66 1! 

: of 1 4 : ? : This one should have non-computational data item as well. 
3; 47 4 P 4 8 1! entry, label, file, pointer (which we map into L), area and offsets 
> 6754 P 4870 1: 

: 4755 4871 1 ); 

one rt 

; $238 4874 ! ) Define the Operator Routine Table for PLi greater than. 
: 4760 P a876 1 OPERATOR ROUTINE TABLE (PLI GTR TABLE, 

> 4761 P 487 1 OPERATOR_ROUTINE 8, "TF, GTR_B.B), 

: 476 P 4875 1 SPERATOR-ROUTINE (Ww. W. TF. GTRTWoW), 

: 476 P 4879 1 OPERATOR-ROUTINE (L, L, TF, GTRUL-L), 

3 4764 P 4880 1 OPERATOR-ROUTINE (F, F. TF. GTR-F-F). 

> 4765 P 4881 1 OPERATOR-ROUTINE (D, D, TF. GTR-D-D). 

> 4766 P 488¢ 1 OPERATOR-ROUTINE (G, G, TF. GTR-G-G), 

> 6767 P 4883 1 OPERATOR-ROUTINE (H, H, TF, GTR-H-H). 

> 4768 P 4884 1 OPERATOR-ROUTINE (P, P, TF, GTR-P-P) 

> 4769 P 4885 1 OPERATOR-ROUTINE (FIXED, FIXED, TF, GTR_FIXED_FIXED), 
> 4770 P 4886 1 OPERATOR-ROUTINE (T, T, TF, GTR_T_f), 

: 4771 P 4887 1 OPERATOR-ROUTINE (Vf. VT, fF, GTR-VT VT), 

: 477 P 4888 1 OPERATOR-ROUTINE (VU, VU, TF, GTR-TF-TF), 

: 477 4889 1 OPERATOR-ROUTINE (V, V, TF, GTR_TF_TF)); 

Me Be 

3 $7re tt : : Define the Operator Routine Table for PLI greater than or equal to. 
: 4778 P 4894 1 OPERATOR_ROUTINE TABLE (PL ~GEa -TABLE, 

> 4779 P 4895 1 OPERATOR_ROUTINE (B, “GEQ_8.B), 

: 4780 P 4896 1 OPERATOR-ROUTINE (W. * oe GEQ"W"w), 

: 4781 P 4897 1 OPERATOR-ROUTINE (L, L. TF. GEQ7L“L), 

: 478 P 4898 1 OPERATOR-ROUTINE (F, F. TF. GEQ-F-F). 

: 478 P 4899 1 OPERATOR-ROUTINE (D, D, TF. GEQ"D-D), 

> 4784 P4900 1 OPERATOR-ROUTINE (G, G, TF. GEQ~G-G). 

> 4785 P 4901 1 OPERATOR-ROUTINE (H, H. TF. GEQ-H-H), 

> 4786 P 4902 1 OPERATOR-ROUTINE (P, P, TF, GEQ~P-P) 

: 4787 P4903 1 OPERATOR-ROUTINE (FIXED, FIXED, TF, GEQ_FIXED_FIXED), 
3 4788 P4904 1 OPERATOR-ROUTINE (T, T, Ged Tf), 

> 4789 P 4905 1 OPERATOR-ROUTINE (vf, VT, fF, GEQ7VT_VvT), 

: 4790 P 4906 1 OPERATOR-ROUTINE (VU, VU, TF, GEQ-TF iF), 

+ 4791 4907 1 OPERATOR-ROUTINE (V, V, fF, GEQ_TF_TF)); 

a 

3 rth} ret ! Define the Operator Routine Table for PLI less than. 

: 4796 P 4912 1 OPERATOR_ROUTINE TABLE (PLI_LSS_TABLE, 

+ 4797 P4913 1 OPERATOR_ROUTINE (B, 8, TF, LSS_6.8), 

> 4798 P4914 1 OPERATOR-ROUTINE (W, W, TF, LSS WW), 

> 4799 P4915 1 RATOR-ROUTINE (L, L, TF, LSS"L-L), 

: 4 P4916 1 TOR-ROUTINE (F, F, TF, LSS7F-F), 

> 4801 P4917 1 OPERATOR-ROUTINE (D, D. TF. LSS7D7D). 

: 4 P4918 1 RATOR-ROUTINE (G, G, TF, LSS-G-G), 

: 480 P4919 1 OPERATOR-ROUTINE (H. H, TF. LSS H7H), 

: 4804 P 4920 1 OPERATOR-ROUTINE (P, P, TF LSSoPr P), 

+ 4805 P4921 1 OPERATOR-ROUTINE (FIXED, FIXED, TF, LSS_FIXED_FIXED), 
: 4 P 4922 1 OPERATOR-ROUTINE (T, T, TF, LSS$_T_f), 
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eke Sep-1984 AX-11 Bliss-32 V4.0-7 
at 7 ie af) 32 DEBUG. REID DaGEVALOP.639; 
OPERATOR ROUTINE (VT, VI, TF, LSS.VI_VI), 
OPERATOR-ROUTINE (VU, ye TF LSS-TF-TF), 
OPERATOR-ROUTINE (V, MEE! CSS_TF_TF));° 


Define the Operator Routine Table for PLI less than or equal to. 
OPERATOR POUT INE TABLE (PLI -tEa TABLE, 


OPERATOR_ROUTINE (8, 6, TF, LEQ 6.8), 
OPERATOR“ROUT INE (Ww, W, TF, LEQ-W-W), 
OPERATOR-ROUTINE (L, L, TF, LEQUL“L). 
OPERATOR-ROUTINE (F. F, TF. LEQvF-F), 
OPERATOR-ROUTINE (D. D. TF. LEQ™O"D), 
OPERATOR-ROUTINE (G, G. TF. LEQ7G-G), 
OPERATOR-ROUTINE (H. H. TF. LEQvH-H). 
OPERATOR-ROUTINE (P,P, TF. LEQ~P-P), 
PERATOR-ROUTINE (FIXED, FIXED, TF, LEQ_FIXED_FIXED), 
OPERATOR-ROUTINE (T, T, TF, LEQ.T_f), 
OPERATOR-ROUTINE (vf, vr tr, LEQ"vT‘vT), 
OPERATOR-ROUTINE (VU, r LEQ”TF-TF). 
OPERATOR-ROUTINE (V, V Weel CeG_TF_TF));° 


The logical operators AND, OR, and NOT can be applied only to 
bit-string data types. 


Define the Operator Routine Table for PLI NOT. 


DPERATOR ROUTINE TABLE (PLI -81T NOT TABLE 
OPERATOR_ROUTINE (Vv, V,-V, BIT_NOT_ TFS); 


Define the Operator Routine Table for PLI AND. 

OPERATOR ROUTINE TABLE (PLI BIN AND_ TABLE 
OPERATOR_ROUTINE (V, V,~V, BIT_AND_TFS); 

Define the Operator Routine Table for PLI OR. 

OPERATOR ROUTINE TABLE (PLI BIN OR_TABLE 
OPERATOR_ROUTINE (V, V.~V, BITZOR_TF5); 

: Define the Operator Information Table for PLI. 

OPERATOR_INFO_TABLE (PLI_OPINFO_TABLE, 
! The following are arithmetic tables that accept all numeric data types. 
They thus need to specify an incompatibility table. 
OPERATOR Ugh ait (ADD, PLI_ADD_TABLE, PLI_HIER1_TABLE, 
OPERATOR INFO_ENT Y (SUBTRACT, PLI_SUB_TABLE, PLI_HIER1_TABLE, 
OPERATOR. INFO ENTRY (MULTIPLY, PLI -MUL_TABLE, PLI_HIER1_TABLE, 
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The DEPOSIT operator gets sei tes on the DEPOSIT Comnend. fe has 
its own hierarchy table which allows any numeric type 

converted at any other snuner ic’ type. The in compact tity toate, 
however, l 

vice versa. 


WN—OOO 


l prevents depositing D types tate G types and 


w 


7 4 P 4980 1 PLI_INCOMP_TABLE) 

; 4865 P 4981 1 OPERATOR_INFO_ENTRY (OIVIDE, PLI DIV TABLE, PLI_HIER1_TABLE, 

7 4 P 49 § 1 PLI_INCOMP_TABLE), 

3 4 P 49 1 vita On AICRS TAB ty (ONARY PLUS, ay UNARY_PLUS_TABLE, 

3 4 P 4984 1 E, PLI IRCOwr eT LE), 

3; 4 P 4985 1 OPERATOR nltas-ine NIRY (UNARY wus. vet sUNARY -MINUS_TABLE, 

; 4870 P 4986 1 » PLI INCOM faB 

; 4871 P 49 1 operator” INFO- ENTRY * (POWER _OF, Pt aden. TABLE, PLI_HIER1_TABLE, 
: oore P 49 3 1 PLI_TNCOMP_TABLE), 

; 487 P 49 1 

3; 4874 P 4990 1 

; 4875 P 4991 1 ! The relationals eccegs all numeric and bit-string types. 

; re fh 4 1335 : } There is no incompatibility table. 

; 4878 P 4994 1 OPERATOR_INFO_ENTRY (EQUAL, PLI_EQL_TABLE, PLI_HIER2_TABLE, 

3; 4879 P 4995 1 LI_INCOMP TABLE), 

; 4880 Pp p44 1 OPERATOR _INFO_ENTRY (NOT_EQUAL, PLI_NEQ_TABLE, PLI_HIER2_TABLE, 

; 4881 P 4997 1 LI_IN TABLE) 

3 ret) P Pha | 1 OPERATOR_INFO_ENTRY (GTR_THAN, PLI_GTR_TABLE, PLI_HIER2_TABLE, 

; 488 P 4 1 LI_INC ABLE) 

3; 4884 P 5000 1 OPERATOR_INFO_ENTRY (GTR_EQUAL, PLI_GEQ_TABLE, PLI_HIER2_TABLE, 

; 4885 P 5001 1 NC TABLE), 

; 4886 . 2006 ! OPERATOR_INFO Ewrny (LSS_THAN, PLI_LSS_TABLE, PLI_HIER2_TABLE, 

; P 300e 1 wei iw, ENA (LSS EQUAL, PLI_LEQ_TABLE, PLI_HIER2_TABLE, 

3 P 5005 1 1_INCOMP E), 

3 e e008 4 

: P 5007 1 

; P 5008 1 ! The logical operators accept only preraty tag quantities so they de 
: P 5009 1 i not need a hierarchy table. They also do not need an incompatibility 
; . apie : table. 

; . S012 : OPERATOR yh ai (BIT_NOT, PLI_BIT_NOT_TABLE, PLI_HIER3_TABLE, 
4 apie : OPERATOR Iwo eyiny (BIT AND, PLI_BIT_AND_TABLE, PLI_HIER3_TABLE, 
; P ang 1 ver INFO_ENTRY (611 OR, PLI_BIT_OR_TABLE, PLI_HIER3_TABLE, 

; P 5017 1 1_INCOMP_TABLE 

; P 5018 1 

: P 5019 1 

3 P 5020 1 ' Concatenation allows only character or bit eT grperqnts. so it does 
3 P 5021 1 ' not need a hierarchy table. The incompatib bit able is not required, 
3 . 30 § ' ; either. 

; P 8 4 1 OPERATOR INFO ayer [COMEATENNTE,. PLI_CONCAT_TABLE, PLI_HIER4_TABLE, 
H 4 036 ’ 1_INCOMP_T 

3 P $ 1 OPERATOR_INFO_ENTRY (CONVERT, TABLEBASE, PLI_HIERD_TABLE, 

; P 1 TABLEBASED, 

3 P 1 

3 Pp 1 

: P 1 

3 p 7 

3 P 1 

3 Pp 1 

3 P 1 

3 P 1 
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); 


1 TNCOMP_T 


The IDENTITY operator gets called at the end of an EVALUATE command 
TO_VAL routine and then apply the appropriate 
print as a stoned integer, 


to apply the PRIM 
type mappings. This will ensure that EV BU wil 
for example. 


The identity operator does not require any tables. 


ERATOR_INFO_LENTRY (IDENTITY, TABLEBASE, TABLEBASE, TABLEBASE) 
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RPG OPERATOR INFORMATION TABLES 


This section contains the Operator Routine and Type tables needed to 
evaluate expressions in the RPG Language. 


pole leololelolelolo) 
PPA 
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The following ponerse the information in the RPG-11 manual, 


operator: + = * / unary* unary- 
operand: numeric literal/identifier 


Conditional (TRUE, FALSE) 
operator: =, NOT =, >, NOT >, <, NOT < 
operand: identifier, Literal, or AE 


bey ! RPGVIDPLN by Treggiar 

Ose : There is further documentation within the tables below, describing 
Sef ! exactly how we translate this into the DEBUG tables. 
065 RPG Data Types: 

06 Trailing overpunched numeric (scaled) 

¥¢3 Packed numeric (scaled) 

06 word (scaled) 

070 long-word (scaled) 

38 character 

$78 l=-dimensional array of the above types 

074 table data type 

of? special registers which begin with an asterisk 
O79 Expressions: 

4 Arithmetic 

0 


S 


{Sse 


wr 


Type Conversion: 


OOooooo 


A eeeceoeoeeo eSeeeeoeoee : 


NRQ-eeeeeene om ae ae oe - ; => i 
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If one of the operand is Scaled Descriptor or Packed decimal 
data type the operation is always done in Packed Form. The 
operation even includes the deposit. 


ee tt te tt tt Tt tt tt tt te te te te ee 


$333 


! Define the Type Conversion Information Table for RPG. No rounding 
! takes place in RPG 


CONVERSION_INFO_TABLE (RPG_CVTINFO_TABLE 
CONVERSION_INFO_ENTRY TTABLEBASE, TABLEBASE)); 


: Define Type Hierarchy Table for RPG. 
TYPE_HIERARCHY_TABLE (RPG_HIER_TABLE, 
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TYPE_GRAPH ) 


: Pp 108 1 EDGE (w, P), 

: 4994 p 51 1 TYPE-GRAPH-EDGE (L. P) 

: 4995 P5110 1 TYPE-GRAPH-EDGE (NRO, F), 

re re 

: $338 : § ; Define the Type Hierarchy Table for RPG deposit. 

: 5000 P 5115 1 TYPE_HIERARCHY_TABLE (RPG_HIERD_TABLE, 

; 5001 p 51 6 1 TYPE_GRAPH-EDGE (Ww, LJ 

: 90¢ P5117 1 TYPE-GRAPH-EDGE (L, NRO), 

; 500 P5118 1 TYPE-GRAPH-EDGE (NRO, P), 

: 5004 P5119 1 TYPE-GRAPH-EDGE (P, W), 

; 5005 4 ); 

: S007 : ¢ : : Define the Operator Routine Table for RPG addition. 

: 2009 P 5124 1 OPERATOR ROUTINE TABLE (RPG_ADD_TABLE 

; 2010 3 OPERATOR_ROUTINE (P, P,~P, KDD_P_P)); 

: 2018 31 : ! Define the Operator Routine Table for RPG subtraction. 
: 5014 p 2156 | OPERATOR_ROUTINE TABLE (RPG_SUB_TABLE 

; 2015 ' 9 OPERATOR_ROUTINE (P, P,-P, SUB_P_P)); 

; 44 : ¢ ! Define the Operator Routine Table for RPG multiplication. 
: 5019 P 5134 1 OPERATOR ROUTINE TABLE (RPG_MUL_TABLE 

3 set 5 OPERATOR_ROUTINE (P, P,P, MUL_P_P)); 

; 23 § : ; : Define the Operator Routine Table for RPG division. 

: 2052 P 139 1 OPERATOR ROUTINE TABLE (RPG_DIV_TABLE 

3 2025 3140 i OPERATOR_ROUTINE (P, P,P, BIV_P_P)); 

; S097 3166 : Define the Operator Routine Table for RPG unary plus. 
; 3029 p 2164 OPERATOR_ROUTINE_TABLE (RPG_UNARY_PLUS_TABLE, 

: 2034 P 5146 1 ! The following are not Language Gopendent types. This is needed for DEBUG 
3 5088 4 \t : types. For example, DEP/QUAD L= +1. 

; 032 P 5149 1 ° OPERATOR_ROUTINE (8, 8, B, UNARY_PLUS_B), 

> 5035 p 5150 1 OPERATOR-ROUTINE (W, W, W, UNARY-PLUS-W), 

: 036 p 5151 1 ERATOR-ROUTINE (L, L, L, UNARY-PLUS"L), 

: 50 p 51 : 1 OPERATOR-ROUTINE (F, F, F, UNARY-PLUS-F), 

: 5038 Pp 3 1 OPERATOR-ROUTINE (D, D, D, UNARY-PLUS"D), 

: 5039 p 5154 1 OPERATOR-ROUTINE (G, G, G, UNARY-PLUS"G), 

: 5040 p 5155 1 OPERATOR-ROUTINE (H, H, H, UNARY-PLUS-H), 

+ 5041 P 136 1 OPERATOR-ROUTINE (Q, Q, Q, UNARY-PLUS-Q), 

3 O4e 4 3 OPERATOR-ROUTINE (0, 0, 0, UNARY-PLUS"O), 

; 3046 135 OPERATOR_ROUTINE (P, P, P, UNARY_PLUS_P)); 

: S046 19 } : Define the Operator Routine Table for RPG unary minus. 
; Hie Pp 188 1 OPERATOR_ROUTINE_TABLE (RPG_UNARY_MINUS_TABLE, 

3; 5049 P 5164 1 
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! The following are not _langua 
For example, DEP/QUA 


OPERATOR_ROUTINE 
OPERATOR-ROUTIN 
OPERATOR-ROUTIN 
OPERATOR-ROUT! 


H types. 


OPERATOR_ROUTINE 
: Define the Operator Routine Table for RPG =. 


OUTINE TABLE (RPG_EQL_TABLE, 
OPERATOR_ROUTINE (T, T 


OPERATOR_R 


= 
za 


(8, 


(Ww, W 


(P, P, 


' 


P, UNARY_MINUS 


» TF, EQLT 


1) 
OPERATOR-ROUTINE (P, P, TF, EQL-P7P)5; 


Define the Operator Routine Table for RPG NOT =. 


OPERATOR ROUTINE TABLE (RPG_NEQ_TABLE, 


OPERATOR_R 


OUTINE (T, T 


» TF, NEQ_T_T) 


OPERATOR-ROUTINE (P, P, TF. NEQ-P~P)5; 


: Define the Operator Routine Table for RPG >. 


OPERATOR_ROUTINE TABLE (RPG_GTR_TABLE, 
OPERATOR_ROUTINE (T, 
OPERATOR-ROUTINE (P, P 


: Define the Operator Routine Table for RPG NOT <. 


TABLE (RPG_GEQ_TABLE, 
- TF, GEQ_T_T) 


OPERATOR 
PER 


ROUTINE 
OPERATOR_ROU 
OPERATOR-ROUTINE (P, P 


: Define the Operator Routine Table for RPG <. 


TINE (T, T 


» TF, GTR_T_T) 
, TF, GTR-P@P)S; 


, TF, GEQ~P~P)5; 


OPERATOR _ROUTINE_TABLE (RPG_LSS_TABLE, 
OPERATOR_ROUTINE (T, Wm 
OPERATOR-ROUTINE (P, P, TF. LSS-P~P)S; 


: Define the Operator Routine Table for RPG NOT >. 
OUTINE TABLE (RPG_LEQ_TABLE, 


OPERATOR_R 


OPERATOR_ROUTINE (T, % is 
OPERATOR-ROUTINE (P, P, TF. LEQ"P™P)5; 


: Define the Operator Routine Table for RPG NOT. 


T, TF, LSS_T_T) 


T, TF, LEQ_T_T) 


OPERATOR_ROUTINE TABLE (RPG_NOT_TABLE, 
OPERATOR_ROUTINE (TF, TF, TF, NOT.L)); 


! Define the Operator Routine Table for RPG AND. 


AX-11 Bliss-32 V4.0-74 
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B*, Sogencent types. This is needed for DEBUG 
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1 
OPERATOR_ROUTINE_TABLE (RPG_AND_TABLE, 
OPERATOR_ROUTINE (TF, TF, TF, AND.L_L)); 


: Define the Operator Routine Table for RPG OR. 


OPERATOR_ROUTINE TABLE (RPG_OR_TABLE, 
OPERATOR_ROUTINE (TF, TF, TF, OR.L_L)); 


} Define the Operator Information Table for RPG. 


OPERATOR_INFO_TABLE (RPG_OPINFO_TABLE, 
OPERATOR_INFO_ENTRY 

> RPG_ADD_TABLE, RPG_HIER_TABLE, TABLEBASE), 
OPERATOR_INFO_ENTRY 
TRACT, RPG SUB_TABLE, RPG_HIER_TABLE, TABLEBASE), 
OPERATOR_INFO_ENTRY 
IPLY, RPG MUL_TABLE, RPG_HIER_TABLE, TABLEBASE), 
OPERATOR_INFO_ENTRY 
(DIVIDE, RPG_DIV_TABLE, RPG_HIER_TABLE, TABLEBASE), 
Fo ENTRY | 


OPERATOR. IN 
Y_PLOS, RPG_UNARY_PLUS_TABLE, RPG_HIER_TABLE, TABLEBASE), 
OPERATOR_INFO_ENTRY 
Y MINUS, RPG_UNARY_MINUS_TABLE, RPG_HIER_TABLE, TABLEBASE), | 
OPERATOR_INFO_ENTRY 
(EQUAL, RPG EQL_TABLE, RPG_HIER_TABLE, TABLEBASE), | 
OPERATOR_INFO_ERTRY | 
(NOT-EQUAC, RPG_NEQ_TABLE, RPG_HIER_TABLE, TABLEBASE), 
OPERATOR INFO_ENTRY 
TR-THAN, RPG GTR_TABLE, RPG_HIER_TABLE, TABLEBASE), | 
OPERATOR~INFO_ENTRY 
(GTREQUAC, RPG_GEQ_TABLE, RPG_HIER_TABLE, TABLEBASE), 
OPERATOR—INFO_ENTRY 
“THAN, RPG_LSS_TABLE, RPG_HIER_TABLE, TABLEBASE), 
OPERATOR~INFO_ENTRY 
(LSS-EQUAC, RPG_LEQ_TABLE, RPG_HIER_TABLE, TABLEBASE), 
OPERATOR—INFO_ENTRY 
(NOT; RPG-NOT TABLE, RPG_HIER_TABLE, TABLEBASE), 
OPERATOR_INFO-ENTRY 
(AND; RPG-AND TABLE, RPG_HIER_TABLE, TABLEBASE), 
OPERATOR_INFO-ENTRY 
RPG-OR_TABLE, RPG_HIER_TABLE, TABLEBASE), 
OPERATOR _INFO-ENTRY 
(CONVERT, TABLEBASE, RPG_HIERD_TABLE, TABLEBASE), 
OPERATOR_INFO_ENTRY 
POSIT, TABLEBASE, RPG_HIERD_TABLE, TABLEBASE), 
OPERATOR _INFO_ENTRY 
(IDENTITY, TABLEBASE, TABLEBASE, TABLEBASE)); 
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UNKNOWN OPERATOR INFORMATION TABLES 


This section contains the Operator Routine and Type tables needed to 
evaluate expressions in the UNKNOWN Language. 


aa 


SOVIAL. —" SIMULA, ..., they can get some level of 
by generating G UNK 


So, the guiding principal below is to allow as many data types as possible 
and be very permissive about conversions between data types. This will 
increase the chance of covering the allowed operations and data types 

in a given language. (Although it probably means we will be allowing 

many things that the language does not allow). 


DWONAUNE WN (OOONOULS UN 
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Ne Pet 8 tts try te eet RP, 


RFU LOOM aR RO 


Define the Type Conversion Information Table for UNKNOWN. 
There are no initial type mappings or exceptions to language-specific | 
conversion rules. 


} 
- | 
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ONVERSION_INFO_TABLE (UNKNOWN CVTINFO_ TABLE, 
CONVERSION_INFO_LENTRY (TABCEBASE, TABLEBASE)); 
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Define the Type Hierarchy Table for UNKNOWN. 
This allows most integer-based types to be converted to L, 
and L can then be converted u , 0, G, H. 


to 
The complex types are not inc Luded here - they increase the size | 
of all the tables, and most senqueges do not support complex | 

| 
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3 
3 
90 3 | 
; 2 arithmetic, so it was not deemed worth it. 
9 p 5307 YPE_HIERARCHY_TABLE (UNKNOWN_HIER_TABLE, | 
P 3 8 TYPE_GRAPHEDGE (TF, L) | 
P 5309 TYPE-GRAPH-EDGE (PTR, LS | 
P 5310 TYPE-GRAPH-EDGE (TPTR, LS, 
P 311 PE-GRAPH-EDGE (ENUM, L), | 
98 P 1 TYPE-GRAPH-EDGE (BU, WU), | 
199 p 531 E-GRAPH-EDGE (WU, LU). | 
201 P 5315 YPE“GRAPH-EDGE (8, W), 
0¢ P 2318 TYPE-GRAPH-EDGE (W, L). 
0 p 531 TYPE-GRAPH-EDGE (L, F) 
04 P 18 TYPE~GRAPH-EDGE (F , DS, 
05 p 531 TYPE~GRAPH-EDGE (F, G) 
06 P 5320 TYPE-GRAPH-EDGE (F, FCS, 
0 P 5321 “GRAPH-EDGE (D, H) 
08 P ‘ TYPE“GRAPH-EDGE (D, DCS, 
09 P PEGRAPH-EDGE (G, H) 
10 P 5324 TYPE~GRAPH-EDGE (G, GCS 
11 P 5325 “GRAPH-EDGE (FC, DCS, 
I P d3¢6 TYPE~GRAPH-EDGE (FC, GC), 
1a 8 ma 
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Define the Type Hierarchy Tabl 
This is a circular graph which a 
into any other (even though DBG$ 
of the combinations.) 


YPE HIERARCHY _TABLE (UNKNOWN_HIERD_TABLE, 
TVEE GRAPH EDGE 


e for UNKNOWN deposit. 
A a any type to be deposited 


-DX_DX may not allow all 
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TYPE~GRAPH~EDGE 
TYPE GRAPH_EDGE 


! Define the Type Incompatibility Table for Language UNKNOWN. 
! D and G arithmetic is always incompatible. 


TYPE_INCOMP_TABLE (UNKNOWN_INCOMP_TABLE, 
TYPE_GRAPH_EDGE (D, G) 
TYPE~GRAPH-EDGE (D. GC), 
TYPE~GRAPH“EDGE (G, DC) 
TYPE_GRAPH_EDGE (oe, GCS, 


! Allow arithmetic on any of the numeric types. 
! Other types (PTR, TPTR, ENUM, unsigned types) can be converted to L before doing 
! any arithmetic. 


: Define the Operator Routine Table for UNKNOWN addition. 


OPERATOR_ROUTINE (L, L. L. ADD_C_L), 
OPERATOR“ROUTINE (F. F. F. ADDF -F). 
OPERATOR-ROUTINE (D. D. D. ADD"D"D). 
OPERATOR-ROUTINE (G. G. G. ADD"G"G). 
OPERATOR-ROUTINE (H, H, H. ADD"H"H) 
OPERATOR-ROUTINE (FC, FC, FC, ADD_FC_FC), 
OPERATOR-ROUTINE (DC, DC. DC. ADD~DC~0C) 
OPERATOR-ROUTINE (GC, GC, GC, ADD-GC~GC)5; 


! Define the Operator Routine Table for UNKNOWN subtraction. 
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3 
16-5e =1984 00:32:25 AX-11 BLi 
305-1382 90 85:52 DEBUG. SRC) 
OPERATOR_ROUTINE (DC, DC, DC, UNARY_PLUS_DC) 
OPERATOR-ROUTINE (GC, GC, GC, UNARY-PLUS-GC)5; 


Define the Operator Routine Table for UNKNOWN unary minus. 
OPERATOR_ROUTINE_TABLE (UNKNOWN _UNARY_MINUS_ TABLE, 


! The following are not semquse® Sepgndent types. 


This is needed for DEBUG 
types. For example, DEP/ = +1, 


OPERATOR_ROUTINE (B, B, 8, UNARY_MINUS_B), 
OPERATOR-ROUTINE (W, W, W, UNARY-MINUS_W), 
OPERATOR-ROUTINE (P, P, P, UNARY-MINUS_P), 
OPERATOR-ROUTINE (Q, Q, Q, UNARY-MINUS.Q), 
OPERATOR ROUTINE (0, 0, 0, UNARY_MINUS_O), 
OPERATOR_ROUTINE (L, L, L, UNARY_MINUS_L), 
OPERATOR-ROUTINE (F, F, F, UNARY-MINUS_F), 
OPERATOR-ROUTINE (D, D, D, UNARY-MINUS_D), 
OPERATOR-ROUTINE (G, G. G, UNARY-MINUS.G), 
OPERATOR-ROUTINE (H, H, H. UNARY-MINUS-H), 
OPERATOR-ROUTINE (FC, FC, FC, UNARY_MINUS_FC), 
OPERATOR-ROUTINE (DC, DC, DC, UNARY-MINUS_DC) 
OPERATOR-ROUTINE (GC, GC, GC. UNARY-MINUS.GC)5; 


! Define the Operator Routine Table for UNKNOWN exponentiation. 

: We special-case the mixed cases FetL, Dt*L, Ge*L, and H**L because 
! we do not want the exponent converted to float there. Note - this 
is the same table as for FORTRAN. 


OPERATOR ROUTINE TABLE (UNKNOWN POWER TABLE, 
OPERATOR_ROUTINE (W, W, W, POWER O_W), 
OPERATOR-ROUTINE (L, L, L, POWER“L“L), 
OPERATOR-ROUTINE (F. L. F, POWER-F-L). 
OPERATOR-ROUTINE (D, L, D, POWER-D-L). 
OPERATOR-ROUTINE (G, L. G, POWER-G-L). 
OPERATOR-ROUTINE (H, L. H, POWER"H"L). 
OPERATOR-ROUTINE (FC, L, FC, POWERTFC_L), 
OPERATOR-ROUTINE (DC, L, DC, POWER-DC-L), 
OPERATOR-ROUTINE (GC, L, GC, POWER-GC-L), 
OPERATOR-ROUTINE (F, F, F, POWER FF). 
OPERATOR-ROUTINE (D. F, D. POWER"D-F). 
OPERATOR-ROUTINE (F, D. D. POWER“F-D). 

RATOR-ROUTINE (D, D. D. POWER"D"D). 
OPERATOR-ROUTINE (G, G, G, POWER"G-G), 
OPERATOR-ROUTINE (H, H, H, POWER"H"H) 
OPERATOR-ROUTINE (FC, FC, FC, POOER_FC_FC), 
OPERATOR-ROUTINE (DC, DC, DC, POWER-DC_DC) 
OPERATOR-ROUTINE (GC, GC, GC, POWER-GC-GC)5; 


The relationals are defined on strings and on numeric types. 

We do not specially handle types Like ENUM, TPTR, and so on, as 
in PASCAL = here we just convert them to integer and do integer 
comparison. The intent is to be looser about type-checking 
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Define the Operator Routine Table for UNKNOWN less than or equal. 


OPERATOR poy ine He ae (UNKNOWN LEQ_TABLE, 
OPERATO OUTINE o ta Whe LEO. 
0 RATOR™ ROUTI TF; 


L 
OPERATOR-ROUTINE (F, F, TF, L 
OPERATOR-ROUTINE (D, D, TF, L 


Cakes 


3 3 £6 200 1: ! than is PASCAL. 

: 2 34 $09 ! Define the Operator Routine Table for UNKNOWN equal. 
; 5390 P 5504 1 OPERATOR ROUTINE TABLE (UNKNOWN _EQL_TABLE, 

; 3 91 p 5505 1 OPERATOR_ROUTINE (T, T, TF, EQL-T_T), 

3 5392 P 5506 1 OPER ATOR-ROUTINE (LoL, TF, EQUTLUL), 

; 2332 P5507 1 OPERATOR_ROUTINE (F, F, TF, EQL-F_F), 

: 5394 P 3208 1 OPERATOR-ROUTINE (D, D, TF, EQL-D"D), 

; 2399 Pp 5509 1 OPERATOR-ROUTINE (G, G, TF. EQL-G-G), 

: 5396 p 5510 1 OPERATOR-ROUTINE (H, H, TF, EQL-H-H), 

: 5397 P5511 1 OPERATOR-ROUTINE (FC, Fc, fF, EQLIFC_FC), 

; 5398 P 231 1 OPERATOR-ROUTINE (DC, DC, TF, EQL-DC~DC) 

; 2399 2313 OPERATOR-ROUTINE (GC, GC, TF, EQL~GC~GC)5; 
3 ret e212 : Define the Operator Routine Table for UNKNOWN not-equal. 
; 540 P 5517 1 OPERATOR ROUTINE TABLE (UNKNOWN_NEQ_TABLE, 

> 5404 P 3318 1 OPERATOR_ROUTINE (T, T, TF, NEQ-1_1), 

: 5405 P5519 1 OPERATOR-ROUTINE (L, L. TF. NEQ"L“L), 

> 5406 P 5520 1 OPERATOR-ROUTINE (F, F, TF, NEQ-F-F), 

: 5407 Pp 5521 1 OPERATOR-ROUTINE (D, D, TF, NEQ~D-D), 

: 5408 P 238¢ 1 OPERATOR-ROUTINE (G, G, TF, NEQ~G-G), 

: 5409 P : 1 OPERATOR-ROUTINE (H, H, TF, NEQ-H-H). 

> 5410 p 5524 1 OPERATOR-ROUTINE (FC, FC, TF, NEQ7FC/FC), 

> 5411 Pp 5525 1 OPERATOR-ROUTINE (DC, DC, TF, NEQ~DC~DC) 

; 3412 5526 1 OPERATOR-ROUTINE (GC, GC, TF, NEQ~GC-GC)); 
: 541 5527 1 

: 5414 5528 1 

3 sel? 2268 ' Define the Operator Routine Table for UNKNOWN less than. 
: 5417 P 5531 1 OPERATOR_ROUTINE TABLE (UNKNOWN_LSS_THAN_TABLE, 
> 5418 P 333¢ 1 OPERATOR_ROUTINE (T, T, TF, LSS_1_1)- 

: 5419 Pp 5533 1 OPERATOR-ROUTINE (L, L. TF. LSS-L“L). 

: 5420 Pp 5534 1 OPERATOR-ROUTINE (F, F, TF, LSS FF). 

> 5421 Pp 5535 1 OPERATOR “ROUTINE (D, D, TF, LSS7D"D), 

: 5422 Pp 5536 1 OPERATOR-ROUTINE (G, G, TF. LSS~G~G) 

; 3425 33 OPERATOR-ROUTINE (H, H, TF. LSS-H-H)5; 

$ 3052 32 : Define the Operator Routine Table for UNKNOWN greater than. 
: 5427 p 5541 1 OPERATOR ROUTINE TABLE (UNKNOWN_GTR_THAN_TABLE, 
: 5428 P 5542 1 PERATOR ROUTINE T, TF, GIR-T_T); 

; 3429 Pp 5543 1 OPER TOR “ROUTI NE a! > TE. GTRTL“L). 

: 5430 P 5544 1 OPERATOR" ROUTINE (F, F, TF, GTRTF-F), 

: 5431 Pp 5545 1 OPERATOR-ROUTINE (D. D, TF. GIR7D"D), 

; 3438 P 5546 1 OPERATOR-ROUTINE (G, G, TF. GIR™G~G) 

3 543 5547 1 OPERATOR-ROUTINE (H, H, TF. GTRTH"H)5; 

3 5434 55 1 

: 5435 33 1 

3; 54 5 1 

3 ee 5 1 

3; 54 5 1 

; e¢ 5 1 

3: 54 5 1 

: 2 55 1 

3 54 1 
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16-Sep-1984 00:32:25 AX-11 Bliss-32 V4.0-74 Page 104. 
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OPERATOR_ROUTINE (G, G, TF, LEQ_G_G) 
OPERATOR-ROUTINE (H, H, TF, LEQ"H-H)5; 


Define the Operator Routine Table for UNKNOWN greater than or equal. 


OPERATOR ROUTINE TABLE (UNKNOWN_GEQ_ 
OPERATOR ROUTIN (T, ie TF, GE 
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Q-T_T 
Q7L“L 
Q-F-F 
D 070" 
NE (G, G, Q-G"G 
INE (H, H, Q7H"7H)5; 


! The logical operators AND, OR, NOT, EQV and XOR are defined only 
! on integers. Other types such as Tf can be converted to Boolean. 


Define the Operator Routine Table for UNKNOWN AND. 


OPERATOR_ROUTINE_TABLE (UNKNOWN _AND_TABLE, 
OPERATOR_ROUTINE (L, L, L, BIT_AND_L_L)); 


Define the Operator Routine Table for UNKNOWN OR. 


OPERATOR ROUTINE TABLE (UNKNOWN OR_TABLE, 
OPERATOR_ROUTINE (L, L, L, BITIOR_L_L)); 


Define the Operator Routine Table for UNKNOWN XOR. 


OPERATOR _ROUTINE_TABLE (UNKNOWN. XOR TABLE, 
OPERATOR_ROUTINE (L, L, L, BIT_ROR_L_L)); 


: Define the Operator Routine Table for UNKNOWN EQV. 


OPERATOR_ROUTINE_TABLE (UNKNOWN _EQV_TABLE, 
OPERATOR_ROUTINE (L, L, L, BIT_EQV_L_L)); 


Define the Operator Routine Table for UNKNOWN NOT. 


OPERATOR_ROUTINE_TABLE (UNKNOWN_NOT TABLE 
OPERATOR_ROUTINE (L, L, L, BIT_NOT_L)S; 


Define the Operator Routine Table for UNKNOWN concatenate. 


OPERATOR ROUTINE TABLE (UNKNOWN _CONCATENATE_TABLE, 
OPERATOR_ROUTINE (T, T, T, CONCAT_T_T)); 


: Define the Operator Information Table for UNKNOWN. 
OPERATOR_INFO_TABLE (UNKNOWN_OPINFO_TABLE, 


! ALL of the arithmetic, logical, and relational operators use 
i the same hierarchy table and the same incompatibility table. 


: Arithmetic. 


OPERATOR_INFO_ENTRY 
(ADD UNKROWN_ADD_TABLE, 
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NKNOWN HIER TABLE, UNKNOWN_INCOMP_TABLE), 
OPERATOR INFO_ENTRY 
cou err RACT, UN NKNOWN SUB_TABLE, 
KNOWN HIER TABLE, URKNOWN_INCOMP_TABLE), 
OPERATOR INFOLENT try 
ULTIPLY? UN KNOWN MUL_TABLE, 
yt KNOWN_HIER_ TABLE, URKNOUN, INCOMP_TABLE), 
OPERATOR_INFO_ENT Fay 
(DIVIDE je DIV_TABLE, 
oH nouh ay Ale. “UNKNOWN _ INCOMP_TABLE), 
PE UNARY tNFOTE 


los, _ ee  UNARY_PLUS_TABLE 

HIER RATABLE, “UNKNOQN_INCOMP_TABLE), 

OPERATOR ark Ent 
ye 


IRus _ aoe UNARY_MINUS_TABLE, 
HIE FA giABLe. ONKNOWN_INCOMP_TABLE), 


OPERATOR nINEO.€ 
(POW ie POWER_TABLE, 
UNKNOON. HIER TABLE, UNKROWN- INCOMP_TABLE), 


Relationals 


OPERATOR, INFO ENTRY 
(EQU URKNOUN TABLE, 
a SH. TABLE? UNKNOWN _ INCOMP_TABLE), 
OPERATOR as Let ay 


UAC, UNKNOWN_NEQ_ TABLE 
UNK HIER TABL tes NONRNOUN E ENCOMP. TABLE), 
OPERATOR_IN INFO” ENTR 


HAN; UNKNOWN LSS_THAN_TABLE, 
UNK HIER RA TABLE. URKNOWN_ INCOMP_ TABLE), 
OPERATOR. INFO ENTR 


HAN; UNKNOWN GTR_THAN_TABLE, 
UNK HIER_ TABLE, UNKNOWR_ INCOMP_ TABLE), 
OPERATOR_ INFO” ENTRY 
(LSS"EQuU 


UNKNOWN, LEQ 

UNK R TABLE; LONENOUNE E ENCOMP. TABLE), 

OPERATOR. INFO ENTRY TRY 
UNKROUN ‘afer tT TABLES SoNRNOUN iNCOMP_TABLE), 

; Logicals. 


OPERATOR_INFO_ENTRY 

(AND; ag UNE ROWN Ak AND_TABLE, 

UNKNOWN _HIER- TABLE, UNKNOWN _ INCOMP_TABLE), 
OPERATOR. INF ONE NTRY 


OR_TABLE, 
UNKNOWN_H HIER THLE. ONKNOWN_INCOMP_TABLE), 
OPERATOR_INFO tere 
(XOR? UNKROWN. X ABLE, 
UNKNOWN _HIER™ TABLE. UNKNOWN. INCORP, TABLE), 
OPERATOR OR_INFO_ENTRY 


QV> UNKROWN_EQV TABLE, 
UNKNOWN_HIER Ro FABLES UNKNOWN. INCOMP_TABLE), 
OPERATOR_INFO_ENTRY 


ENT 
(NOT; UNKROWN_NOT_TABLE, 


pace VALOP. 83 31 


F 3 
16-Sep-1984 00:32:25 AX=-11 Bliss-32 V4.0-74 P 106 
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: sh P 671 UNKNOWN _HIER_TABLE, UNKNOWN_INCOMP_TABLE), 

; 5 P £38 1 ! String operations. 

3 260 P 5674 1 4 

; 5561 P 5675 1 OPERATOR_INFO_ENTRY 

3 288 P 676 1 (CONTATENATE, UNKNOWN CONCATENATE_TABLE, 

; 263 P 67 UNKNOWN _HIER_TABLE, ONKNOWN_INCOMP_TABLE), 

; 20? : 4 : CONVERT is used for things Like converting subscripts. 

; 269 P 5681 1 OPERATOR_INFO_ENTRY 

; 2208 4 6 ¢ | (CONVERT, TABLEBASE, UNKNOWN_HIER_TABLE, UNKNOWN_INCOMP_TABLE), 

: 5570 P : 4 1 ! DEPOSIT is used in the XEPOSIT command. | 
; 5571 P 5685 1 ! 
3 2278 Pp 26 § 1 OPERATOR_INFO_ENTRY 
; 2277 . ret ; (DEPOSIT, TABLEBASE, UNAWOWN_HIERD_TABLE, UNKNOWN_INCOMP_TABLE), 
; 5575 P tt 1 ! IDENTITY is used at the end 1f an EVALUATE to turn the primary | 
3; 5576 P 5690 1 ' into a value descriptor. | 
3; 5577 P 5691 1 ' 

; 5578 Pp 269¢ 1 OPERATOR_INFO_ENTRY 

; E44 283 ! (IDENTITY, TABLEBASE, TABLEBASE, TABLEBASE)); 


3 i 
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3 § $3) 1 ! The following data structure holds a type pair in a word and is used 
3 $38 : ; to search for the type pair in the Operator Routine Table. 
; 5 098 1 FIELD 

; $ TYPE PAIR_FLOS z 

; 5588 701 1 BS RIGHT TYPE = (0,80_), 

; 5589 7 ¢ 1 BS"LEFT_TyPE = (0,81-]J, 

; 5590 703 1 WS-TYPE-PAIR = [0,WO- 

; 5591 704 1 TES; 

; 235 705 1 

3 rs 7? $ 1 MACRO 

: 5594 707 1 TYPESPAIR = BLOCK (1, WORD] FIELD (TYPE_PAIR_FLDS) 2; 

; 5595 5708 1 
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B+ 19 Be 95 4g 29+ G5-p635 205 15 m3 

Lai bat Pat: 

0, 8.0. 43,43, 21 

EASE aM ea | 
3 8,0. 43, 43, 22 : 

( . hy 16 "68 # 8: eens | ‘ : 
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8, 59, 0, 0, 0, 8 0 
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, 65, 0, 0 8.0, 10, AL 73, 0 ; 
t, coe Re My Mh." Bo: 8 Se. b,4114,0-- : 
f 3 uy % ; 
io, 40, -86, 0, 0, 0, 40, 0 : 
40. 40, -90, 0, 0, 0, 40, 0 ; 
40. 40, -82, 0, 0, 0, 40, 0 ; 
ig 40, -80, 0. 0. 0. 40, 0 
47, 47, 97, 0 40. 0. 8, 8. 97. 0. - 
aly 84 f zs 0; er 1199590" 
Q. 9 6, 46, 6, 37. 27,106, 0: 0, 0, 40, - 
6, 38. {01 0. 6, 40. 0: 46, 40, - 
ig 0: 0.'0, 46, 6 
0.°0%'6 "95° g: 4 i$, a3 bee vt 0," 0 $6, 
6 19. {09° 2 i: 6. f i. - 
f10, 6.0. “28. i: i 52% 2 111, 06.50° 0,'- 
i 96.96.28: Gero! '26,% ° 
47, 47, 113, 0, 49, 0, 8 8, -113, 
6° tt mh i 33. oi 2 0 6.6. i 
O48, 0, 4 5 + 9h0- mr *2 51095 08 
i 46, $, .. Bio 48. g. 0. 
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# 000¢ ‘BYTE 

000009 H Ha “LONG 
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000009¢¢ oes -LONG 
Obs pe “BYTE 

00000990 DEC “LONG 
1 O0DF “BYTE 

Qos ODF9 “BYTE 

00000A7¢ opr LONG 

1 000 “BYTE 

O# 00E09 “BYTE 

QOO00AEO O0E ¢ “LONG 

1 O0E “BYTE 

O# 00€39 “BYTE 

00000834 O0€ ¢ LONG 
1 0064 “BYTE 

Oe 0E49 “BYTE 

000008 OE dC LONG 
01 E5 “BYTE 

O# 00659 “BYTE 

00000804 EG LONG 
a a 

00000 o a -LONG 
O# O0E “BYTE 

— n -LONG 
r cB “BYTE 

sestay its -LONG 
O# O0F4 “BYTE 

on00ocg 38 -LONG 
a 3 “BYTE 

ooo0ocro f -LONG 
O# OOF “BYTE 

000000 ; if -LONG 
# O0F “BYTE 
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1 01 .BYT 
#01 ‘BYT C34 
00000000 00000898 000000 “LONG , 2200, 0 
#01 “BYTE 067) 
00000000 60000000 000000 p i -LONG , 0, 0 
O# O10€ “BYTE 19) 
00000000 00000898 00000044 10F¢ “LONG $33 2200, 0 
1109 “BLKB «147 
00000001 119 LONG 
0838 1145 P.ABU: “WORD 107 
00000000 000011A0 01144 BLISS_CVTINFO_ TABLE: 
wa” ervad .LONG” 4512, 0 
000003 ot tap PNG 
0000 0807 0706 0804 oS O1 Ibe P. ABV: - WORD 770, 1027, 2052, 1798, 2055, 0 
1 0129 292A 2A 04 0408 0803 0307 07 06 O11C4 P.ABW: <:WORD 518, 1794, 775, 2051, 1032, 8708, 10786, - 
mete ore ates an ae : $508 He *s 10538, 297, 1587, 0 
0000002 011D¢ “LONG 
00 08 00 00 00 05° °b8 of a1 ibe P.ABX: .BYTE 8, 8, 5, 0, 0. 0, 8 0 
00990008 O1iEs “LONG 
00 08 00 00 00 13 08 O08 O11EC P.aBY: ‘BYTE &, 8 19. 0. 0. 0. 8 0 
00990008 O11F4 LONG 
00 08 00 00 00 2F 198509 o1208 P.ABZ: . VTE . 8 47, 0, 0, 0. 8. 0 
00000002 0120¢ LONG 
00 08 00 00 00 38 08008 19 P.ACB: -BYTE . 8 59, 0, 0, 0, 8 0 
00 08 00 00 00 30 0808 oi IC P.ACC: “BYTE , 8, 61, 0, 0, 0, 8 0 
00 00 00 61 08 01228 P.ACD: .BYTE §&, 8, 97, 0. 0, 0, 8 0 
a fe . 4 008 008 01230 LONG : 
00 08 00 00 00 6C 00 008 PLACE: “BYTE , 8 108, 0, 0, 0, 8 0 
00 08 00 00 00 05 aa 46 P.ACG: “BYTE , 8, -112, 0, 0, 0, 8, 0 
00 08 00 00 00 7F oo x” 33 P.ACH: “BYTE . 8, 127, 0. 0, 0, 8 0 
00 08 00 00 00 800 * 64 P.ACI: “BYTE , 8, -128, 0, 0, 0, 8, 0 
00 08 00 00 00 87 9 fo 15 P.ACJ: “BYTE . 8. -121, 0. 0, 0. 8 0 
00 08 00 00 00 88 * 7C PACK: “BYTE . 8 -120, 0, 0, 0, 8 0 
00 08 00 00 00 70 : as P.ACL: BYTE , 8 119, 0, 0. 0. 8 0 
7 1294 P.ACM: BYTE , 8, 120, 0, 0, 0, 8 0 
oe ee @ 80 00 129C LONG 
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f 1470 BYTE 0f51] 
00000000 00001184 000012 1480 -LONG 48, 4532, 0 
# 0148 “BYTE 3 
00000000 00001184 00001234 140 -LONG obe8, 4532, 0 
be 14¢p “BYTE Oc33 
00000000 00001184 000012 1400 -LONG 4696, 4532, 0 
8 1400 “BYTE Oc3 
00000000 00001184 00001264 01460 “LONG 4708, 4532, 0 
14EC “BYTE 2 
# 014ED “BYTE 3) 
00000000 00001184 000012 14F0 -LONG 4744, 4532, 0 
p # 014FD BYTE 0653 
00000000 00001184 00001294 01500 [LONG 4756, 4532, 0 
00 1 0¢ “BYTE : 
ow 1 6 “BYTE £33 
00000000 00001184 00001240 10 -LONG 4672, 4532, 0 
oe 1510 “BYTE O¢33 
00000000 00001184 00001246 13 0 “LONG 4684, 4532, 0 
Oe 152D “BYTE 0¢33 
00000000 00001184 000012 : 13 0 -LONG 4720, 4532, 0 
Ooe 1530 “BYTE Or33 
00000000 00001184 0000127¢ 01340 LONG 4732, 4532, 0 
060 0154¢ “BYTE 0 
08 154D BYTE £1153 
00000000 00001184 00001378 015C0 "LONG 4984, 4532, 0 
00 15€C “BYTE : 
00# 015¢D “BYTE £33 
00000000 00001184 00001240 130 : ONG 4768, 4532, 0 
00" 1300 “BYTE 0¢33 
00000000 00001184 000012AC 1360 -LONG 4780, 4532, 0 
O0e 15€D “BYTE Oc) 
00000000 00001184 00001288 1360 -LONG 4792, 4532, 0 
O# lars “BYTE 0053 
00000000 00001184 = 1600 -LONG 04, 4532, 0 
16 “BYTE 5) 
00000000 00001184 000012 16 : -LONG ia. 4532, 0 
# 016 BYTE j 
00000000 00001184 woe ede “LONG ate 4532, 0 
, # 01640 “BYTE Oc1633 
00000000 00001184 00001384 1660 “LONG 4996, 4532, 0 
18h *BYT (3) 
00000000 000011¢4 000000 1 "LONG ; 4548, 0 
170¢ BYTE 
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dD 6 
-Sep-19 


-Sep-19 


P.AKD: 
P.AKE: 
P.AKF: 
P.AKG: 


P.AKH: .BY 
UNO Coir OT 
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DEBUG. SRCJDBGEVALOP.B32; 1 
LONG 
eu rd 8, -96, 0, 0, 0, 8, 0 
“BYTE , 8, -93, 0, 0, 0, 8 0 
-BYTE , 8, -102, 0, 0, 0, 8 0 
“BYTE ° 8, -99, 0, 0, 0, 8, 0 
“BYTE 4.614. 82, 0. 0, 0, 14, 0 
BYTE gree 
LONG 76, 20900, 20988 
at 
;LON ot ads, 20900, 20988 
BYTE 3) 
; LONG ods, 20900, 20988 
BYTE $13) 
LONG 1072, 20900, 20988 
BYTE (3) 
; ONG a1ic0, 20900, 20988 
“BYTE 03) 
LONG 21208, 20900, 20988 
‘BYTE OC3 
LONG Sie, 20900, 20988 
“BYTE 0035) 
-LONG 21640, 20900, 20988 
“BYTE 63) 
LONG te 20900, 20988 
“BYTE 3) 
LONG ot a2e, 20900, 20988 
BYTE bt19 
“LONG ota, 20900, 20988 
BYTE 4 19 
“LONG 21792, 20900, 20988 
BYTE 0f19) 
LONG 21888, 20900, 20988 
BYTE 19 
“LONG 20068, 20900, 20988 
“BYTE 
“LONG 22000, 20900, 20988 
"BYTE 
BYTE 0C3) 
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00000 


AX-11 Bliss-32 ne Bee 
DEBUG. SRC JDBGEVALOP.B32; 1 


«LONG ge0te, 20900, 20988 


aM 

-LONG 22026, 20900, 20988 
BYTE 

“LONG 22036, 20900, 20988 
“BYTE 115] 

-LONG 60, 20900, 20988 
“BYTE 7 

LONG eee 20988 
ete 639 

LONG 20900, 20988 
“BYTE 

“BYTE  0(67] 

~LONG . 0, 0 

“BYTE 

“BLKB 179 


-PSECT DBGSOWN,NOEXE, PIC,2 
BLISS_BITSELECTION FLAG! : 
BLISS_BITSELECTION FLAG2: 
BLISS_INDIRECTION_FLAG: 

-BLKB 
CVT_ROUND FLAG: 


CVT_TBL: .BLKB 
CVT“TBL_SIZE: 


-BLKB 
CVTINFO_TABLE: 
BL 


BLK 
MAP_TBL: .BLKB 
MAP-TBL_SIZE: 


MAX_DEPTH: 
~BLK 
OPINFO_TABLE : 


-BLK 
SAVE_RESULT DESC: 
-BLRB 12 


-PSECT OBGSGLOBAL,NOEXE, PIC,2 
DBGSGL_OPCODE _NAME: : 
-BLKB 4 


- fF fF FHP fF FHF LFZOOCSO 


TABLEBASE= P.AAA 
ADA_HIER_TABLE= P.AAB 
ADA-DEPOSIT TABLE= P.AAC 
ADA_UNARY _PCUS TABLES aa 
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ADA_UNARY MINUS ee TT 
ADA AADD TABLES TABLE= P.AAF 

actet P.AA 
ADA’ ~SUBTRAC ~ABLE= P. avy 


Bt AAJ 
ADA_MODULUS_TABLE= P.AAK 
ADA “RERATNOER TABLE=P- AAL 


ADA“POWER_OF TABLE= P.AAM 
ADA“NOT_TABLE= P. 
ADA~AND~TABLE= P. 
ADA“OR_TABLE= s 
ADA-XOR_TABLE= “AAQ 
ADA-EQUAL_ TABLE 
ADA-NOT_EQUAL_TABLE=P.AAS 
ADATLSS~THAN TABLE= P.AAT 


ADA-GTR EQUAL TABLE=P.AAW 
ADA_CONTATENATE _TABLE= 


BASIC_HIERT TABLES P-AAY 
C7HIER2~ TAB 

CmHIE 

C~ADD_ 

C“SUB-TABLE= = P. ABC 

C“MUL 

C“DIV-T 
BASIC “UNA 3 
BASIC_UNARY_MINUS_TABLE= 
BASIC POWER, TABLE= 


terununnun 
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‘ 
if- ep-1 :25 AX-11 Bligs-32 V4.0-74 P 46 
Het 1 9 32:82 DEBUG. SRC Sacevaor.639;1 a9 335 
P.ACE 
BLISS_LSS_THAN TABLES” 
BLISS_LSSU_THAN TABLE® 
BLISS_GTR_THAN TABLES” 
BLISS_GTRU_THAN, TABLE= 
ACI 


BLISS_LSS_EQUAL_TABLES 
BLISS_LSSU_EQUAL_TABLE= 
BLISS_GTR_EQUAL_TABLE= 


P.ACL 
BLISS _GTRU_FOUAL TABLES 


CUNARY PLUS. TABLE= 
BLISS_UNARY MINUS TABLE® 


BLISS_BIT_NOT_TABLE=P.ACT 
BLISS“BITSELECT_TABLE= 


P.ACU 
BLISS_INDIRECT_TABLE= 

P.ACV 
C_HIER_TABLE= P.ACW 
C"HIERB_TABLE= P.ACX 
C"ADD_TABLE= P.ACY 
C- SUB" TABLE= -ACZ 
C"MUL- TABLE= P.ADA 
C“DIV-TABLE= P.ADB 
C"UNARY_MINUS_TABLE=P.ADC 
C"UNARY-PLUS_TABLE= P.ADD 
C"MOD_TABLE= P.ADE 
C"EQL-TABLE= ADF 
C"NEQ" TABLE= -ADG 
C“LSS-TABLE= ADH 
C“GTR_TABLE= ADI 
CALEQ_TABLES ADJ 
C“GEQ"TABLE= ADK 
C“BIT_AND_TABLE= «ADL 
C“BIT"“OR_TABLE= ~ ADM 
C"BIT“XOR_TABLE= = P.ADN 
C“BIT-NOT-TABLE=  P.ADO 
C TABCE= P.ADP 
C ABLE= P.ADQ 
C ABLE= ADR 
C EFT _TABLE= P.ADS 
C T_TABLE= P.ADT 
C R“TABLE= P.ADU 
C CR_TABLE= P.ADV 
¢ R_TABLE= P.ADW 


vos-000 
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-fOst p cr ~ il P.ADX 
mt a 
Hse P.AEA 
COBOL _CVT_TAB y P.AEB 
COBOL HIER TABLE P.AEC 
COBOL“HIERD_TABLE= P.AED 
COBOL-ADD_TABLE= P.AEE 
COBOL“SUB-TABLE=  P.AEF 
COBOL “MUL - TABLE= P.AEG 
6080. > v hus P.AEH 


SAE 
COBOL “UMAR “Amis, TABLES. 
COBOL _EQL_TABLE= BAEK 
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ORTRAN_ DIV" TABLE= 
ORTRAN_UNARY_PLUS_T 


FORTRAN_UNARY _MINUS_ TAB 


FORTRAN_POWER TABLE=P A 
FORTRAN_CONCAT_TABLE= 


FORTRAN_EQL -TABLE= 
FORTRAN_ 
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FORTRAN~61T-NOT ~TABLE® 
FORTRAN_BIT_AND -TABLE® 
FORTRAN BIT_OR. TABLES 
FORTRAN, B1T_XOR, TABLE= 
FORTRAN_BIT_EQV_TABLE= 


tSSacevator.03s; 1 
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vos-000” 


ifeseont9He QO:s2s2 yauett BL 


P.AFR 
MACROLMAP TABLES PLAS 
BACRO-HIER.T E= PAF 
MACRO-HIERD_TABLE® P.AFU 
MACRO-ADD_TABLE= =P. AFV 
MACRO-SUB-TABLE= PAF W 
MACRO-AUL TABLES = B-AFX 
MACRO-DIVETABLES PLAY 
MACRO SHIFT TABLE= P.AFZ 
MACRO-MOD TABLE= PA 


MACRO_UNARY_PLUS oA Ee 
MACRO_UNARY_MINUS_ ew 


MACRO_EQUAL Ye 7 P. AGD 
MACRO_NOT_EGQUAL_TABLE= 


P, 
MACRO_LSS_THAN_ TABLEs ces 
MACRO_GTR_THAN_TABLE= 4 

P.AGG 
MACRO_LSS_EQUAL TABLES 
MACRO_GTR_EQUAL TABLES 
MACRO_LSSU. THAN. TABLES 


MACRO GTRU_THAN, TABLE= | 
MACRO_LSSU_EQUAL_TABLE® 
MACRO_GTRU_EQUAL TABLES 


GM 
MACRO_BIT_AND_ TABLE=P.AGN 
MACRO. T-OR On TaBLe® P.AGO 
4 T-XOR_TABLE=P.AGP 
TEQv- TABLESP: AGQ 
T-NOT-TABL iene AGR 
MACRO” TSELECT_T 


BA 
MACRO_INDIRECT “ina 


PASCAL_MAP_TABLE= P.AGU 
R_TABLE= P.AGV 
RT TABLES P. AGW 
RD-TABLE= P.AGX 
OMP_TABLE=P.AGY 
rE P.AGZ 

= 

= 


z 
o 
zw 
Aer 
‘wlawiow 


ASCAL~ 
AL” 
PASCAL 
A 
A 


L T 
bal -! 
PASCAL AULT 
SCALDIV.TRBLE® 


PASCAL “UNARY_PLUS_ TaBits 


P.A 
PASCAL_UNARY_MINUS -talLEs 
PASCAL_INTDIV_TABLE=P.AHG 


t$actvacoe.033,1 


a 


4 
35 
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PASCAL_MOD_TABLE=  P. AHH 
PASCAL-REM-TABLE= PAH 
PASCAL-EQL-TABLE= P.AHJ 
PASCAL-NEG-TABLE= P.AHK 
PASCAL-GEQ-TABLE= P. AHL 
PASCAL-GIR-TABLE= PA 

PASCALILSS-TABLE= P. AHN 
PASCAL-LEQ-TABLE= P. AHO 
PASCAL-NOT-TABLE® P. AHP 
PASCAL-AND-TABLE= P. AHO 
PASCAL OR OR.TABLES = B-AHR 


PASCAL~ todiecesson arate ’ 
PASCAL PREDECESSOR ae 


pul _MAP_TABLE= P.AHV 
1~ INCOMP [aauee p-AHW 
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ABLE= 
ARY *PLUS. TABLE 
 UNARY_MINUS_TABL 


‘c 


RPG_ PUL _TAB 
RPG_DIV 
RPG ~UNARY "PLUS. TABLE 


RPG_UNARY _MINUS_TABL 
a -EQL_TABLE= 


RPG_NEQ”-TABLE= 
RPG_GTR_TABLE= 
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¥.. 1984 00:32:25 AX-11 Bliss-32 V4.0-7 
if Sep-1 3h 90: 32: 4 DEBUG. SRC JDBGEVALOP.B 
RPG_GEQ_TABLE= P.AJG 
RPG_LSS_TABLE= P.AJH 
RPG_LEQ_TABLE= P.AJI 
PG-NOT_TABLE= P.AJJ 
RPG_AND yaoyte P.AJK 
RPG" OR Wie = P.AJL 
ae a R_TABLE= P.AJM 
UNKNOWN_HIERD_TABLE=P.AUN 
KNOWN_ INCOMP_TABLE= ae 
UNKNOWN_ADD_TABLE= P.AJP 
UNKNOWN-SUB_TABLE= P.AJQ 
UNKNOWN _ MUL — “TABLE= . 
UNKNOWN DIV, TABLE= P.AJS 
UNKNOWN_UNARY_PLUS “TABLES 


AJ 
UNKNOWN _UNARY _MINUS_ TABLE= 


“P.AJU 
UNKNOWN_POWER_TABLE=P.AJV 
UNKNOWN “EQL ~ TABLES P.AJW 
UNKNOWN_NEQ_ TABLES P. AIK 
UNKNOWN-LSS~THAN_TABLE= 


P.AJY 
UNKNOWN_GTR_THAN_ TABLES 
UNKNOWN_LEQ_TABLE= Se 


UNKNOWN E= P.AKG 
UNKNOWN CONCATENATE_TABLE= 


+ AKH 
-EXTRN FORSCVT DTE. A oe gh G_TE 
EXTRN FORSCVT-H-TE, MTHSJNOT ~ 

T OTSSCVT_TB_L, prgscvt TIL 
OTsscvt_t 6 Vt ‘a 
OTS$CVT-T"G, oresevtct 
OTSSCVT' TOL, OTSS$CVT "t = 


AB 
T_ANY, DBGSCOLLECT 


=e 


SYMVALUE 


3.1 


TQUADWORD_TO_VALUE 
ae 


3; Routine Size: 


5 bytes, 


Routine Base: 


iBesboctone 90:52:26 yasent eLias=t2 yea0-743 


«PSECT 


0000 00000 AAA_DUMMY : 


50 04 00002 
04 00004 


DBGSCODE + 0000 


XTRN Heat tA ty 

XTRN DBGSSTA_TYP-PICT 

XTRN DBGSSTA_TYP-SET 

XTRN DBGSSTA_TYP- SUBRNG 

XTRN peosstA TYP" TYPEDPTR 

XTRN DBGSTYPEID FoR _SET 

XTRN DBGS$GB_LANGUAGE 
EXTRN DBGSGL_NEG_CONST_TOKEN 
EXTRN bee GL_POS_CONST_ TOKEN 
EXTRN DBGS$GL_NEG_SIGN_TOKEN 
EXTRN pBeser =POS-SIGN_ TOKEN 
EXTRN peeset “DEVELOPER 


DBGSCODE,NOWRT, SHR, 


D Save nothing 
RO 


PIC,0 


rage 151 
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BEGIN 
IF .OPERATOR CTOKENSV_SGNEXT) 
DIYPE = DSC$K_DTYPE_SV 


; og 4, ! GLOBAL ROUTINE DBGSBLISS_BITSELECT (OPERATOR, ARG_DESC, RESULT_DESC): NOVALUE = 
; 60 g { FUNCTION 

; ei 7 § 1/ This routine is called from DBGSPERFORM_OPERATOR to do the 

3 ol¢ 7 1! BLISS bit select operation e.g X<p,$s,e>). It receives 

: 561 726 13 the operator token containing he p,s,e information and 

3; 5614 725 1! @ pointer to the descriptor for X. it builds a new descriptor with 

3 oi? § : the new bit offset, length, and sign extension information. 

; e17 Z 8 i INPUTS 

: gis 730 1 OPERATOR ~ points to the operator token for the BITSELECT operator. 
: 5620 731 #1! he p.s e information can be extracted from the token 
; 5621 7 : ii in the 6IT_OFFSET, BIT_LENGTH, and SGNEXT fields. 

; 56 ¢ 7 ARG_DESC - points to fhe VMS descriptor representing the argument 
3; 56 7 1! of the bit-select operator. 

3 ? 3 5 : : RESULT_DESC - points to the VMS descriptor representing the result. 
: 56 g 737 1 | OUTPUTS 

3; 56 7 : 1! 

3; 5628 7 1! The result VMS descriptor is filled in. 

3; 5629 740 1! No value is returned. 

3; 56 741 15! 

3; 5631 74 BEGIN 

3 2036 74 MAP 

3; 56 744 OPERATOR : REF TOKENSENTRY 

: 56 745 ARG DESC : REF DBGS$STG_DESC, 

H ee 5 a RESOLT_DESC : REF DBGSSTG_DESC; 

: 5637 748 LOCAL 

3; 5638 749 ADDRESS ' The address of the data 

3; 5639 750 BIT OFFSET, ! New bit offset from byte address 

3 Seat a}! DTYPE; ! New dtype 

: ek 253 ! Obtain the address. 

3 re 754 ' 

; #4} 03? ADDRESS = ..ARG_DESCCDSCSA_POINTER); 

; S646 739 ! Obtain the bit offsets. 

; S648 139 BIT_OFFSET = .OPERATOR CTOKENSW_BIT_OFFSETI; 

: 60 761 ! Compute the new byte address. 

: 63¢ 763 ADDRESS = .ADDRESS + .BIT_OFFSET / 8; 

3 5654 765 ! Compute the bit offset. From it and the sign extensicn bit, 

: 5656 16 determine the new class and dtype. 

: £26 768 BIT_OFFSET = .BIT_OFFSET MOD 8; 

3 $28 769 IF [BIT_OFFSET EQC 0 

3; 565 770 THEN 

3; 5660 771 


es 


M 
"$eep-198e 21:54:82 — EoeauG. SecSbace vALOP.036; 1 pone 85 


igor} Q0H2:3E  YABGND BLIGSSRE WtsoeZ4 


: 77 
3 £88 at DTYPE = DSCSK_DTY 
; 666 uf SAVE. RESULT_DESCCDBS (see e eliss2 = DSCSK_CLASS_S; 
3 as) ELSE 
3 eo f LF -OPERATOR CTOKENSV_SGNEXT] 
; ore 7 DTYPE = DSCSK_DTYPE_SvU 
; 567 784 
: 5674 785 = DSC$K_DTYPE_vu; 
; 679 , 6 SAVE. ORE SULT _DESCCBSC$B_CLASS] = DSC$K_CLASS_UBS; 
: 567 788 
3 rth 188 : Save away the new dtype, bit offset, and length. 
; 2078 791 Save _RESULT_DESC CDSCSB_DTYPE] = .DTYPE; 
; 5681 79 SAVE-RESULT-DESC CDSCS$W-LENGTH] = OPERATOR CTOKENSW_BIT_LENGTH); 
; 368¢ 79 SAVE-RESULT-DESC [DSCSA-POINTER] = .ADDRESS; 
3 2685 3794 SAVE-RESULT-DESC CDSC$L~POS) = ‘BIT “OFFSET: 
3 Het 796 ! FILL in the new address. 
3 ey] 797 ! 
3 2687 198 JRESULT_DESCCDSCSA_POINTER] = .ADDRESS; 
3 569 5800 : Set a flag saying we've done a BLISS bit selection. 
: 5691 3802 2 BLISS_BITSELECTION_FLAG1 = TRUE; 
: 5692 5803 1 END; 
001¢ 00000 ENTRY DBGSBL ISS BITSELE t. Save R2,R3,R4 
54 00000000" EF 9 00002 MOVAB SUCT_D R4 
30 08 AC 00 00009 MOVL ARC e rree R 
3 04 BO DO 0000D MOVL 94 (RO) Softess 
1 .. oe pO 0011 MOVL it 
50 08 Al s 0013 MOVZWL Aw Bit OFFSET 
52 20 08 t? 0001 DIVL , BIT OFFSET, R2 
5 co 0010 ADDL R * ADDRESS 
7E 00 50 01 7a 000 g EMUL #1, BIT_OFFSET, =(SP) 
50 50 BE 8 7 9 EDIV #8. (SPY+, BIT “ofr ger, BIT_OFFSET 
Q A TSTL 8 f_OFFSEf 
11 002C BNEG 
05 61 AE BBC #10, (R1), 1$ 
2 9 BO MOVL #41. DTYPE 
3 4 BRB 2$ 
52 1 9 1$: MOVL #1, DTYPE 
64 1 A 28: MOVE #1, SAVE_RESULT_DESC+3 
F 11 D BRB 6$ 
05 61 A €1 F 3$: BBC #19, (R1), 4$ 
2 A 00 43 MOVL #42. DTYPE 
; a6 BRB 3 
52 0 48 4$ MOVL #34, DTYPE 
64 D 48 5$ MOVE #13, SAVE_RESULT_DESC+3 


FF 
FD 
4 

5 
04 
D1 


oc 


DBGSCODE + 


soca Q02:35 ANGI Lia 


OViPuuiyu 


—WONOW—"P 


TYPE, SA SAVE. 
ApoREsS 
BIT goer ser 
RESOL 


wt 
Best, 
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3 rn § } GLOBAL ROUTINE DBGSBLISS_INDIRECTION (ARG_DESC) = 

; O38 08 1 ! FUNCTION 

3; 569 O07 1! This routine is called from DBGSPERFORM_OPERATOR to perform a 

; 5698 3 1! BLISS indirection. The routine just fetthes the eoject 

: $9) 09 1! given by the VMS descriptor, and returns the object as a longword 

; 5700 3i9 1! value. 

; 5701 1) Be ke 

3 re 5 \¢ 1 ! INPUTS 

3 ? 2 \? } ARG_DESC = A VMS descriptor representing the argument 

; $f 5 15 1 ! OUTPUTS | 

3; 57 1 1! . The object that the VMS descriptor points to is fetched. 

; 570 1 1! This value is returned. If there was no read access to the 

3; 5708 onig 1! address in the descriptor, the NOACCESSR message is | 

; 5709 2 oo signalled. 

; 5710 820 1! 

: tap 2 7 °2 

3 ng 8 ¢ BEGIN 

; 571 abs BUILTIN 

: 5714 5824 OBER; 

3; 5715 obs? 

3; 5716 5826 LOCAL 

3 rat obs? VALDESC: REF DBGSVALDESC; ! Pointer to a value descriptor | 

3; 5719 2862 ! Turn the VMS desc into a value descriptor | 

: 5720 5830 ! 

3; 5721 5831 IF .BLISS_BITSELECTION_FLAG2 

s 27S¢ o836 THEN 

3 37S? 283? § VALDESC = DBGSMAKE_VAL_DESC (SAVE_RESULT_DESC, DBGS$K_VALUE_DESC) 

: 3785 3835 3 VALDESC = DBGSMAKE_VAL_DESC (.ARG_DESC, DBGSK_VALUE_DESC); 

; 5727 5837 2 ! If we have olready done the fetch, 

5 2758 ets 2 return the value in the descriptor. 

3 3hR0 2gt0 3 IF .BLISS_INDIRECTION_FLAG OR .BLISS_BITSELECTION_FLAG2 | 

H 276 2ne6 2 RETURN .VALDESCCDBG$L_VALUE_VALUE0] | 

3; 57 584 

3; 5734 5844 ELSE 

3; 5735 5845 

; afe6 2866 Check for read access. 

3 a s8c8 a PROsER (ZREF(O), ZREF(1), .VALDESCCDBGS$L_VALUE_VALUEO3) 

: 5740 5850 RETURN ..VALDESCCOBG$L_VALUE_VALUE0] 

3; 5741 5851 

3 arte 2826 LSE 

3 574 585 SIGNAL (DBGS_NOACCESSR, 1, .VALDESCCDBG$L_VALUE_VALUEO]) 

3: 5744 5854 1 END; 
| 


0004 00000 -ENTRY DBGSBLISS_INDIRECTION, Save R2 : 5804 


DBGEVALOP Sep-1984 AX-11 Bliss- 
vbe ig sen 1944 90: af: $2 {OEBUG. SRCIDB 
3 00000000" EF 9 MOVAB BLISS_BITSELECTION. 
Be LBC BL I$S_BITSELECTION- 
7A BF OA MOVZBL #122, -(SP) 
28 Ag 9 USHAB AVE. RESULT_DESC 
7E 7A yy 9A 00015 1$: MOVZBL #122, =(SP) 
04 AC DD 0001 PUSHL ARG_DESC 
000000006 00 0 Fe 1C 2$: CALLS #2, DBGSMAKE_VAL_DESC 
04 Ad € BLBS § BLISS_INDIRECTION FLA 
62 £9 00 BLBC BL Iss “BITSELECTION_F 
20 A i 0 A 3$: MOVL soagen. RO 
20 +80 01 00 : 80 F 4$: PROBER #0, #1, @32(VALDESC) 
5 13 000 BEQL «=s«5$ 
50 20 B60 bd 000 MOVL  @32(VALDESC), RO 
04 90 A RET 
20 AO DD 00038 5$ PUSHL  32(VALDESC) 
or DD 000 E PUSHL #1 
; 00028228 8F DD 0004 PUSHL #164392 
ee 000000006 00 03 FB 00046 CALLS #3, LIBSSIGNAL 


; Routine Size: 78 bytes, Routine Base: DBGSCODE + 0071 


Sete Fe Se Fe Fe Se Ge Ge Fe Fe Ge Ge Fe Ge Ge Ge Ge Se Se Se 
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H v6 56 ! GLOBAL ROUTINE DBGSCONV_TEXT_VALUE(VALUE1, VALUE2, NEW_TYPE) = 

3; 574 ° 1 ! FUNCTION 

; 574 28 1! Perform type conversion from an unconverted string to a value. 

; 5750 59 1! Note: this routine accepts ynst@ned dtype, and treat the 

; 5751 60 1 ! unsigned value as signed value (in other words, the T --> value 

3 or g 1: 2a is signed.). 

; 57 66 7 

3; 5754 65 1 ! INPUTS 
; 5755 1: VALUE] = Pointer to a value descriptor to be type-converted. 

3 Ta6 865 1! VALUE2 = Pointer to the target value descriptor. 

3 rel $6 : NEW_TYPE= The eventual type of the value 
; 5759 508 1 ! OUTPUTS 

; 5760 869 1! Pointer to VALUE2 is returned. 

; 5761 870 1! 

; gree 871 BEGIN 
; 576 o76 
; 5764 587 P 

3; 5765 5874 VALUE1: REF DBGSVALDESC, ! Pointer to Value Descr to convert | 
; 5766 5875 VALUE2: REF DBGSVALDESC; ! Pointer to Target Descr 

; are! 5876 

3; 5768 5877 LOCAL 

; 5769 5878 LENGTH, ! Length of the input data. | 
; 5770 5879 STATUS : Return code from library routines 
; 5771 5880 STG_DESC: DBGS$STG_DESC, i String descriptor for the input | 
; HAE: 5881 R- ! ASCIC pointer 
; 577 388¢ TARGET_OTYPE, i Target dtype | 
3 5774 588 TARGET_LENGTH; ! Target length 

; 5775 5884 

3; 5776 5885 

3 hg 5886 ! Fill in a string descriptor to be used as the source for the 

3 32 5887 ! conversion. 
3 re 5888 : 
:; 5780 5889 STG_DESCCDSCS$B_CLASS] = DSCS$K_CLASS_S:; 

3; 5781 5890 STG_DESCCDSC$B8_DIYPEJ = DSCSK_DTYPE_T; 

3 5782 5891 LENGTH = .VALUE1CDBG$W_VALUE CENGTHI; 

H 378) 2898 STG_DESCCOSCSW_LENGTH) = .LERGTH; 
; ares 3897 STG_DESCCDSCSA_POINTER) = DBGSGET_TEMPMEM( (3+. LENGTH) /4); | 
3: 5786 5895 ! If language is ADA then we may have to strip underscores from the 
: ore? 5896 ! text. 

3 57 897 : 

3; 5789 538 IF .DBGSGB_LANGUAGE EQL DBGSK_ADA 

3; 5790 99 THEN 

3; 5791 5900 BEGIN 

; a4 rid LOCAL 

3; 579 O06 IN_PTR: REF VECTORC BYTE) 

: 2794 90 OUT_PTR: REF VECTOR( BYTE; 

; 5795 904 IN_PTR = ,VALUEICDBGSL_ VALUE POINTER); 

: 3736 905 OUT_PTR = .STG DESCCDSCSA_POINTER); 

3; 579 208 INCR | FROM 1 TO .LENGTH BO 

3; 5798 907 4 N 

3; 5799 308 & IF .IN_PTRCO] NEQ ‘*_* THEN 

; 5800 90 N 

: ao! 910 OUT_PTRCO) = .IN_PTR(O]; 

3 5802 5911 OUT“PTR = .OUT_PTR + 1; 


. 
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; 5803 312 4 END; | 
: 280 313 IN-PTR = .INLPTR + 1; . 

3 Hi] 4 STG_DESECDSCSU_LENGTH] = .OUT_PTR = .STG_DESCCDSCSA_POINTER]; 
; 808 319 ELSE | 
: sts 218 CHSMOVE(.LENGTH, .VALUETCOBGSL_VALUE_POINTER], .STG_DESCCDSCSA_POINTER)); 

; | 
: 5811 920 

; Bi 4 1 H Case on the dtype to decide which conversion routine to call. 
3 Bie 5 CASE. .NEW_TYPE FROM DBGSK_MINIMUM_DTYPE TO DBGSK_MAXIMUM_DTYPE OF 
Bee | 
; 5818 9 5 ! Short integers. If the string input looked Like an integer | 
3 aa , 3 } then convert it to longword. 
; $831 930 CDSCS$K_DTYPE_B DSCSK_DTYPE_BU, DSCSK_DTYPE_W, DSCSK_DTYPE_WuU, | 
; e36 3931 DSCSK DTYPE-L): | 
; 28 4 2938 IF .VALUE1COBG$SW_VALUE_TOKENCODE] EQL TOKENSK_INTEGER OR | 
H 2852 o9%e -VALUE1 seo rgy Mba tageg t EQL TOKENSK_HEX_INTEGER OR 
3; 58 8 935 - VALUE 1CDBGS$W_VALUE_TOKENCODE) EQL TOKENSK_BIN_INTEGER OR | 
: asf 5937 gVALue! DBGSW_VALUE_TOKENCODEJ EQL TOKENSK_OCT_INTEGER 

; 9829 2938 ugg ARGET-DTVPE = DSCSK_DTYPE_L 
3 | 
3; 5831 rh TARGET_DTYPE = .VALUE1CDBG$B_VALUE_DTYPE); 
3 28 ; 941 ND; 

Be | 
; 5835 5944 ! If the torget type is long integer and the input string looked 

; 58 5945 ! Like an integer then convert the string directly to the long 
; 38 aoe8 : integer. This ensures that we accept things Like 
; 58 94 ! DEP/QUAD XK = 11111111111 
; 3839 aoe8 ! If we first converted to longword and then to quad we would | 
: ogee rH } over flow. 
; 2848 3951 CDSCS$K_DTYPE_LU, DSCSK_DTYPE_Q, DSC$K_DTYPE_Qu, | 
: 2843 3958 DSCSK“DTYPE-0, DSCSk_BTYPE_Oud: | 
: anes 5954 IF .VALUE1CDBGSW_VALUE_TOKENCODE] EQL TOKENSK_INTEGER OR 

3 Beg 955 ‘ G$W_VALUE_TOKENCODE] EQL TOKENSK_HEX_INTEGER OR 

: Bee - VALUE 1(DBGSW_VALUE_TOKENCODE] EQL TOKENSK_BIN_INTEGER OR 

: 743 4 - VALUE 1(DBGSW_VALUE_TOKENCODE] EQL TOKENSK_OCT_INTEGER 

; 850 $39 ex se (AGEN _DTVPE = .NEW_TYPE 

; 8¢ 961 TARGET_DTYPE = .VALUE1CDBG$B_VALUE_DTYPE); 

WB Be i 

; 5855 964 | If the target type is float, if the input string is in hex, bin, 

3 £36 965 ! or oct radix, then hex, bin, oct always goes to Longword integer. 

3: 585 306 i For if we DEP f = Zhex 1, we want to convert text in hex to integer | 
; $28 +44 value, then coverts 1 to float 1, then performs the DEP. 


‘sleaze al A, 


9 COSCSK_DTYPE -f {OSCSK -DTYPE_D, DSCSK_DTYPE_G, DSCSK_DTYPE_H 
a ae 
i ais IF .VALUE1(COBGSW_VALUE_TOKENCODE] NEQ TOKENSK_HEX_INTEGER AND 
97 - VALUE 1 (DBG$W"VALUE~TOKENCODE] NEQ TOKENSK-BIN_INTEGER AND 
5 974 «VALUE 1LDBGSW_VALUE_TOKENCODEJ NEQ TOKENSK_OCT INTEGER AND 
4 & gvauet DBGSW"VALUE-TOKENCODE] NEQ TOKENSK_ COMPLEMENT 
$17 aS TARGET_DTYPE = .NEW_TYPE 
0 378 TARGET_DTYPE = .VALUE1CDBG$B_VALUE_DTYPE); 
GR - 
87 9 
4 388 ' ALL the other types are either unsupported or fixed type conversion. 
$7? eee ; For example, bitestrin ng. “ete c ” - 
5877 oee CINRANGE, OUTRANGE): 
78 987 TARGET_DTYPE = .VALUE1CDBG$B_VALUE_DTYPE); 
989 TES; 


STR_PTR = UPLIT BYTE(ZASCIC *"); 
SARE . VALUE 1CDBGS$W_VALUE_TOKENCODE] FROM TOKENSK_MIN_OPERAND 
TO TOKENSK“MAX"OPERAND OF 


S3Eg33 


Fronewse INTEGER]: 
R_PTR = UPLIT BYTE(ZASCIC ‘decimal '); 


croKeMaY HEX_INTEGER): 


AACN 
333 


emererrnmnnmr eres 
SSSSLSLSSSSSSBS Ew wows 


+44 PTR = UPLIT BYTE(ZASCIC ‘hexadecimal '); 
001 orenerae FLOATING): 
4 R_PTR = UPLIT BYTEC(ZASCIC 'f_float '); 
6004 CTOKENSK_EXP_E FLOAT): 
sit STR_PTR = OPLIT BYTE (ZASCIC *f_float "); 
$509 CTOKENSK_EXP_D_ FLOAT): 
tit STR_PTR = OPLIT BYTEC(ZASCIC 'd_float '); 
901 6010 CTOKENSK_EXP_Q FLOAT): 
308 opt STR_PTR = OPLIT BYTECZASCIC "h_float '); 
30 $518 croxeeee BIN_INTEGER): 
905 oot R_PTR = UPLIT BYTE (ZASCIC ‘binary '); 
309 oote CTOKENSK_OCT_INTEGER): 
b's i STR_PTR = UPLIT BYTE(ZASCIC ‘octal "Se 
910 6019 CTOKENSK BIT. STRING): 
4h 6 STR_PTR = UPLIT BYTE (ZASCIC *bit-string °); 
2318 $5 § CTOKENSK pack DECIMAL): J 
3313 $9 ? STR_PTR ="UPLIT BYTE(ZASCIC ‘packed decimal ‘); 
916 5 CTOKENSK_EXP_G_FLOAT): 
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Ssep-19be 91:54 96 
STR_PTR = UPLIT BYTE(ZASCIC ‘g_float '); 
CINRANGE, OUTRANGE: 


TES; 
CASE .TARGET_DTYPE FROM DBGSK_MINIMUM_DTYPE 
oie TO DBGSK“MAXIMUM-DTYPE OF 


from text to integer. 
Notes - known problems with this code: 
1) In here, we treat the si 


between 2* and 
$9 mee overflow). 
) Another problem is that 


we are converting it to 


infrequent situations, t 


DSCSK_DTYPE_B, DSCSK_DTYPE_W, DSCSK_DTYPE_L, 
DSCSK_DTYPE BU. DSCSR_DTYPE_Wu, DSCSK_DTYPE.LU): 


EGIN 
SELECTONE .TARGET_DTYPE OF 


DSCS$K_DTYPE_B, DSCSK_DTYPE_BU): 
TARGET_LENGTH = 13 


CDSCSK_DTYPE_W, DSCSK_DTYPE_wu): 
TARGET_LENGTH = 27 ~ 


CDSCS$K_DTYPE_L, DSC$K_DTYPE_LU): 
TARGET_LENGTH = 47 . 


TES; 


Se ee 


DEBUG. SRC JDBG 


Signed integers. Call a runtime routine to do the conversion 


and unsigned 
are the same, this may need to be fixed in the future to do the 
the unsi ¢ sonvers*ea- This only affects unsigned constants 
- 32-1 (we treat these as signed longword, 


the largest negative gee integer will overflow because 
ongword and then negating it at the end. 


Since these problems ony affect very Large constants in 
ey are being ignored at the present time. 


CASE .VALUE1CDBGSW_VALUE_TOKENCODE] FROM TOKENSK_MIN_OPERAND 
TO TOKENSK"MAX"OPERAND OF 


Eronewse inteceR: 
STATUS = OTSSCVT_TI_L(STG DESC 
END; 
CTORENSE MEX INTEGER): 
STATUS = OTSSCVT_TZ_L(STG_DESC, 


VALUE 2CDBGSC_VALUE_POINTER], .TARGET_LENGTH); 


ifesto-t9te 97:32:52 — ¥okaue. SacSbeevacor 033; rg} 


END - VALUE2COBGSL_VALUE_POINTER], .TARGET_LENGTH); 
: 


Cronewer SIM. INTEGER]: 


ni | 
STATUS = OTSSCVT_TB LISTG. 
ai ALUEZEDBGSC.VALUE_POINTERI, . TARGET_LENGTHD; | 


~ a 


~e OCT_INTEGER): 
BEGIN 


E 
STATUS = OTSSCVT_TO_L(S STG DESC 
op, WA UE ebb VALUE_POINTER], .TARGET_LENGTH); 


WOOOOOOO BESS SS 


| 
| 
oF 
4 
4 
6 
4 
oa 
4 
4 
4 
4 
4 
“a 
4 
4 
4 
& 
& 
4 
“ 
& 
4 
& 
4 
8 
4 
& 
é 
A 
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ia COMPLEMENT: 
eEGih. 


a coe VALUE POINTE 
JNOT(7STG_DESC DSESA _POINTER]); 


COSCSK_DTYPE_wWuU wy) 
SIGNAL ae + e-uuacye $ 1 PTR, .LENGTH, 
D§c$A_POINTER]. 
vert aT aes CASCIC. a logical’), | 


CDSC$K_DTYPE_L): 


| 
| 
990 
eo | 
996 61 
99 61 ; MTH 
994 61 
995 a 
996 6105 “et, OUTRANGE 3: | 
997 61 $DBG_ ERROR ( ' DBGEVALOP\DBGSCONV_TEXT_VALUE"); 
999 6108 TES; | 
6000 61 
6001 6110 IF NOT .STATUS 
6008 6111 THEN 
600 gig BEGIN 
6004 611 SELECTONE .TARGET_DTYPE OF | 
$008 $118 BSCSK_DTYPE | 
$009 6116 Situ cpbee: -UNACYT .STR malt LENGTH, | 
6008 611 .$1G-D tDéc$i POINTE 
6118 UPLIT aesere ZASTIC ‘byte’ integer’), | 
6010 6119 ~STATUS); | 
6018 6121 CDSCS$K_DTYPE_BU): 
1 61 ; SIGNAL (ORGS _UNACYT 4, .STR_PTR, .LENGTH, 
14 61 .S1G_DESCLDSCS$A_POINTER 
15 6124 UPLIT BYTE (ZASCIC ‘byte Logical"), 
1 61 STATUS); 
1 61 CDSCSK_DTYPE_w) 
pets 61 a SIGNAL (DB6$_UNACYT 4, .STR_PTR, .LENGTH, 
60 61 .$1G DESCLDSCSA_POINTER), 
6021 61 UPLIT BYTE (ZASCIC ‘word integer’), 
; 6131 »STATUS); 
61 ; 
4 61 
5 61 
$ $ 61 5 
i 8} 
4 61 
61 


ie seo 1944 99:32:32 — Ukauc. SacSostvacor 033, 1 rae 255 | 


pore reek -LENGTH, 


_ wa 


——————————————e 


SIGNAL (DBG$_UNAC 
oa'S DES Eogc$i 0 


UPL IT BY Stic, + integer’), 
¢ STATUS); 
COSCSK_DTYPE bu}: 
SIGNAL (686 -puacyt 4, .STR_PTR, .LENGTH, . 
«$1G_ DESC oscsh POINTER). | 
UPLIT BYTE (ZASCIC ‘Longword logical"), 
STATUS); 
TES; 
END; 


WP 


Yates EbBoay- VALUE_DTYPE] = .TARGET_DTYPE: 
VALUE 2CDBG$W_ VALUELENGTH] = . TARGET_LENGTH; 


COSCS$K orwe.s. DSCSK_DTYPE_Qu]: 
BEGIN 


33333 
Wt 
4 et eet PR PIN RP AS By Ore EH et Oe te Oe TS SE 


PRE ES FUMIE BB EPR ERE EEE EE PUMMUIIININWII EE BEEP PEPPER 


| 
| 
0 STATUS = 
1 DBGSCONV_ TQUADWORD _VALUE(.VALUE1, .VALUE2); 
60 : IF NOT »STATOS 
60 THEN 
60 BEGIN | 
69 5 SELECTONE . .TARGET_DTYPE OF 
$089 DSC$K_DTYPE_Q): 
6058 SIGNAL ( dgGs -UNACYT: 6. sSTROPTR. LENGTH, 
6059 STG DESCCDSCSA_POINTER], | 
6060 ueuit’ arte (ZASCIC ‘quadword integer'), 
ce STATUS); | 
606 CDSC$K_DTYPE_au): 
6064 SIGNAL(DEGS_UNACYT, 4. .STROPTR, .LENGTH, | 
6065 -STG-DESCCDSCSA_POINTER | 
6066 UPLIT BYTE (ZASTIC edna logical"), 
606 . STATUS); | 
6068 sae TES; | 
$070 | 
6071 vate stbe8- VALUE_DTYPE] = -JARGET _DTYPE; 
607¢ VALUE 2LDBG$W~VALUE-LENGTH) = 
607 | 
er 
7 CDSC$K_DTYPE_O, DSC$K_DTYPE_OU): 
6077 BECIN. = 
$079 DBGSCONV_ TOCTAWORD _VALUE(.VALUE1, .VALUE2); 


| 
STATUS | 
1F Not STATOS 


BEGIN 
scLeSTOe - TARGET_DTYPE OF 
DSCSK _DTY 


ST CMAL CBBce: acy 4, .STR_PTR, .LENGTH, 
~STG~DESCLDSCSA_POINTER]. 


Be Se Se Se Se Ge Se Se Ge Se Se Ge Se Se Ge Se Se Se Se Ge Se Se Ge Se Fe Se Ge Se Ge Se Ge Ge Se Ge Se Se Se Se Ge Ge Ge Se Ge Se Se Se Ge Ss Se Se Se Se Se Se Ge Se Ge 
PRA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAS AAAAAAPAAAAAAAOAAAAS 
ee ee re ee ye Pe ee en i ee ee ee ee ee ye ye ye yy 


SSersees 


if sen- 9 7:32:32 — Eokaus. SreSoctvacor.0$5;1 


: i 7 ; veriT gyre (ZASCIC ‘octaword integer’), - 
; 199 & 

3 4 COSCSK_DTYPE_Ou): 

3 4 SIGHAL (OBG8_ Un CVT, 4, .STR_PTR, .LENGTH, 

; 3 4 . si¢e vate tis POINTER], 

3 4 uP it (ZASCIC ‘octaword Logical"), 

3 5 4 STATUS); 

3 5 ew: TES; 

; 6098 VAL DBGS$B_VALUE_DTYPE) « TARGET_DTYPE; 

3 ei : : VALUE stDBGSu “VALUE LENG oh = 16; 

; 61 1 

3; 61 : 6 \§ H steoxteg point. Call a runtime routine to do the conversion 

3 e} : ? 1; } from text to float velue. 

; 610g 6¢19 Coscsx prvPE_F3 : 

: 6108 6 13 STATUS = OTSSCVT_T_F(STG_DESC, - VALUE 2CDBGS$L_VALUE_POINTER)); 
: ob 4 e 18 IF NOT .STATUS 

> 6111 6220 SIGNAL (BGs. $_UNACYT 4. .STRIPTR, LENGTH 

; 61g 6221 G~DESCLDSCSA_POINTER 

: ott7 ° § OPLiT gyre (ZASCIC ‘floating'), 

: 6115 6226 . 

3 eiis 6225 VALUEStDBGSUL VALUE orwel = [ener _DTYPE; 

3 eit ° § VALUE 2CDBGS$W_VALUE-LENGTH] = 4; 

: 6119 é 

3; 6120 6 5 Double floating point. Call a runtime routine to do the conversion 
; 3 1 ° from text to double float value. 

: 61 : 6 é COSCSK_DTYPE_D) : 

3 6126 6 BEGIN 

3; 6125 6 STATUS = OTSSCYT_1_D(STG_DESC, - VALUE 2CDBGSL_VALUE_POINTER])); 
+ eee: i lnipian 

> 6128 6 SIGNAL (BGS. rareae 4, .STR_PTR, .LENGTH, 

3 61 6 8 G~DESCCDSCSA_POINTER] 

: 61 t ifr BYTE (ZASCIC Nascble floating’), 

: 3 1 ° re vet ATU use 

3; 61 § 6248 VALUES EpBeSe VALUE_DTYPE] = .TARGET_DTYPE; 

Py 3 5 ° rb DBGSW- VALUE “LENGTH) = "8; 

: 61 6245 

3 61 6 $8 !G Neoatien point. Call a runtime routine to do the conversion 
3 3 6 "i : from text to G float Solan 

; 6140 é <3 Coscsx TYPE_G) : 

; 614¢ b 3 STATUS = OTSSCVT_T_G(STG_DESC, .VALUE2CDBGSL_VALUE_POINTER)); 
3 oi67 ° 26 If NOT .STATUS 
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$; pale rent «LENGTH, 
sh foe eTlseting® ), 


VALUE2CDBGSB_VALUE_DTYPE] = .TARGET_DTYPE; 
a DBGSW-VALUE-LENGTH) = 8; 


! H Floating point. Call a runtime routine to do the conversion 
H from text to H float velue. 


CoS¢SK DT YPE_H] : 
STATUS = OTSSCVT_T_W(STG_DESC, .VALUEZCDBGSL_VALUE POINTER); 


-LENGTH, 


HEN 
SIGNAL (DBGS_ SUNAcyT ° 
STG osc " 
oating’), 


4 
SA 

UPLIT BYTE (ZAS 
»STATUS); 

VAL eS EbBobe VALUE _DTYPE] = TARGET _DTYPE; 
VALUE DBGSW- VALUE~ LENGTH] = 


! Pack decimal. Call a user routine to do the conversion 
from text to pack decimal. 


CDSC$K_DTYPE_P): 
VACUE2 ="CONV_TEXT_PACK_VALUE(.VALUE1); 


! Text string. There is no conversion to be done here since the value 
is already in the right format. 


Coscsx_ptvPe_1) : 


! Bit-string. Call a the 8 routine to do the conversion free text to 
i bit-string format. The Debug routine actually calls a PL/I 

i run-time routine to do the conversion; it is written in macro to 

i YY the water tere (PL/I run-time routines notoriously do not 

i adhere to the V. AX calling standard). The bit-string format is thus 
; PL/I BAM, 
c 


DSCS$K_DTYPE_V): 
BEGIN 
LOCAL 
STG_PTR: REF VECTORC, BYTE); 


! At present, allow only binary constants. Catch errors here, 
ee PL/I run-time routines do not return a status. 
$16 Pye -STG_DESCCOSCSA POINTER); 


R I FROM 0 TO .LENGTH-T D 
BEGIN’ 


ee a 
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16-Sep-1984 00:32:25 AX-11 Bliss-32 V4.0-74 
et 90:32:82 DEBUG. SRC IDBGEVALOP.B3 31 
IF, STG_PTRC.1] NEQ %C°O" AND .STG_PTRC.1] NEQ %C'1" 
SIGNAL (DBGS_UNACYT 4, .STR_PTR, .LENGTH, 
.$1G DESCLDSCSA POINTER, 
ah UPLIT BYTE (ZASCIC 'bit-string’), .STATUS); 


PLISCHARABIT R6(.STG_DESCCDSCSA_POINTER], .LENGTH, 
1: COBGSL_VACUE_POINTERT, .VALUECCOBGS$W_VALUE_LENGTH); 


: We do not expect any other dtype, so signal an error if we see one. 


CINRANGE, OUTRANGE) : 
SDBG_ERROR ('DBGEVALOP\DBGSCONV_TEXT_VALUE'); 


TES; 
! The conversion has been completed. Turn off the ‘unconverted’ bit in 
! the value descriptor. Return a pointer to the Value Descriptor which 
: contains the converted value. 
VALUE FDBGSV _DHDR UNCVT] = 0; 
VALUE 2CDBG$W~VALUE_TOKENCODE) = 0; 
: Take care of the sign. 
iF .VALUE1CDBGSW_VALUE_SIGN_CODE] EQL TOKENSK_NEGCONST OR 
» VALUE 1CDBG$W_VALUE_SIGN_CODE] EQL TOKENSK_POSCONST 
BEGIN 
ei LUE COOGSU_ VALUE _S1GN_CODE? EQL TOKENSK_NEGCONST 
BEGIN 
VALUE 2CDBG$W_VALUE_SIGN_CODE) = 0; 
VALUE2 = DBGSEVAL CANS OPERATOR (DBG$GL_NEG_CONST_TOKEN, 
os -VALUE2, OF; 


BEGIN 
VALUEZCDBGSY VALUE_SIGN_CODE) = 0; 
VALUE2 = DBGSE VAL CANG OPERATOR (DBGSGL_POS_CONST_TOKEN, 


END; ; 
END; 
RETURN .VALUE2; 


BRE BUR EES EP UIMUIIINNIPOPIPOPONOPOPUPUPINNONOPOPUPUNINUTUNI WIN BB 


i 


nN 7 | 
"$rSep-1986 21:56:86 — EDgauG. Sac SbBGEVALOP 659; 1 Paes 28 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


~PSECT DBGSCODE.NOWRT, SHR, PIC,0 


] 
A74 P.AKI: ASCII <O> 
20 6C 61 6D 69 65 64 g A75 P.AKJ: .ASCII <B> decimal \ ; 
20 6C 61 6D re es 65 64 6% $3 3 68 A7E P.AKK: .ASCII <12>\hexadecimal \ 3 | 
0 746 61 6F 6C 66 SF $9 A ? P.AKL: .ASCII <8>\f_float \ : 
0 746 61 6F 6C 66 SF 6 A94 P.AKM ASCII <B8>\f_float \ é 
8 74 61 6F 6C 6 F 64 AID P.AKN: .ASCII <8>\d_float \ : | 
74 $1 gf 6C 6 F of AA6 P.AKO: .ASCII <8>\h_float \ : 
20 79 72 61 of $9 6 AAF P.AKP: .ASCII <7>\binary \ : | 
¢ § 1 6F 6 AB7 P.AK eASCII <6>\octal \ é 
20 67 of 69 7 4 D 74 69 $¢ B OQOSABE P.AK ASCII <11>\bitestring \ : 
6C 61 6D 69 63 65 64 20 64 65 68 63 61 F ents P.AK eASCII <15>\packed decimal \ : 
20 74 61 6F 6¢ 66 SF 67 4 SADA P.AKT ASCII $8338 float \ : 
24 47 42 44 SC 0 4 of 41 26 4 4 42 44 ig 5SAE3 P.AK eASCII <29> BBGEVALOP\<92>\DBGSCONV_TEXT_VALU\ $ 
55 4C 41 56 SF 54 58 45 54 SF 56 GE 4F t2 rh ASCII \E\ é 
72 65 67 65 74 6€ 69 20 65 74 79 6 5 5801 P.AKV: .ASCII <12>\byte integer\ : 
6C 61 63 69 67 6F 6C 20 65 74 79 § C B2B0e P.AK ASCII <12>\byte gogrcess 3 
72 65 67 65 74 6€ 69 20 64 72 6F OC O5B1B P.AKX: .ASCII <12>\word integer\ 3 
C 61 63 69 67 6F 6C $9 64 72 6F 77 OC b288 P.AKY eASCII <12>\word logical\ 3 
67 65 74 6€ 69 20 64 72 6F 7 67 GE 6F $6 49 beezz P.AK eASCII = <16>\longword integer\ 3 
63 69 67 6F 6C 20 64 72 6F 77 67 GE 6F of iY p2868 P.ALA: .ASCII <16>\longword logical\ : | 
67 65 74 6€ 69 20 64 72 6F 77 64 61 75 zi 49 03866 P.ALB: .ASCII <16>\quadword integer\ : 
63 69 67 6F 6C 20 64 72 6F 77 64 61 75 4 i 3848 P.ALC: .ASCII <16>\quadword logical\ : 
67 65 74 6€ 69 20 64 72 6F 77 61 74 63 of 10 03879 P.ALD: .ASCII <16>\octaword integer\ : 
63 69 67 6F 6C 20 64 72 6F 77 61 74 63 of i p2b5a P.ALE: .ASCII <16>\octaword logical\ : 
67 6 69 74 61 6F 6C 66 08 05898 P.ALF: .ASCII <8>\floating\ : 
6— 69 74 61 6F 6C 66 20 65 6C 62 75 6F 64 oF beat P.ALG eASCII <15>\double floating\ F 
67 6€ 69 74 61 6F 6C 66 SF 67 rH tree P.ALH: .ASCII £192 \g_ float ings ; 
67 6€ 69 74 61 6F 6C 66 SF 68 = BBF P.ALI: .ASCII <10>\h_floating\ 3 
97 6—€ 69 72 74 73 2D 74 69 6 A OSBCA P.ALJ: .ASCII <1g> \b Tees tr ing\ é 
24 47 42 46 C 50 4F 4C 41 56 45 47 42 44 1 5B05 P.ALK eASCII = <29>\DBGEVALOP\<92>\DBGSCONV_TEXT_VALU\ - 
55 4C 41 56 SF 54 58 45 54 SF 56 GE 4F ‘3 5BE4 3 
4 5BF2 eASCII \EN 3 
07FC 00000 ENTRY DOGSCONY TEXT VALUE. Save R2,R3,R4.R5,.R6,- ; 5855 
R7,RB,RO : 
LIBSSIGNAL, R10 ; 
AKI, R9 : | 
#270, "STG DESC2 ; $890 
VALUE1, RE : 5891 
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58 oe 9 1D MOVAB 20(R6), RB 
$ ¢ 1 MOVZWL (R8), LENGTH 
E 7 4 MOVW ENGTH, $16_DESC 589 
1 03 A? E 00 7 MOVA (R7), R 589 
7E 1 4 ¢ 3 DIVLS «#4, RI, =(SP) 
000000906 00 } FB 0 F CALLS i. DBGSGET TEMPMEM 
05 000000006 99 +1 005A cme DBG$GB_CANGUAGE, #9 5898 
51 18 Ab 06 O0¢5 MOVL  § 24(R6), IN_PTR 5904 
0 04 AE DO 0004 MOVL § $TG_DESC+4> OUT_PTR 5905 
3 p4 048 CLRL i 5906 
B 11 00040 BRB $ 
SFOS 61 91 0004F 1$ CMPB ss CIN_PTR), #95 5908 
3 13 0053 BEQL 2$ 
80 $i 90 0005 MOVE CIN_PTR), (OUT_PTR)+ 5910 
1 D6 00058 3s INCL INPTR * 5913 
F1 52 57 F3 O005A 3$ AOBL G0 LENGTH, I, 1$ 2906 
6E 50 06 AE A 0055 SUBW ste_pesc+s, OUT_PTR, STG_DESC 591 
06 11 0006 BRB 5 5898 
04 BE 18 86 28 00065 4$: MOVC3 LENGTH, @24(R6), @STG_DESC+4 5918 
00 Oc AC CF 00068 S$: CASEL NEW_TYPE, #0, #43 5923 
005A 005A OOAF OOAF 90070 é$: WORD  12$76$,- 
005A 005A 0077 0077 0007 12$-6$,- 
0091 0091 0077 005A 00080 7$-6$,- 
OOAF OOAF OOAF OOAF 00088 7$-6$,- 
OOAF OOAF OOAF OOAF 00090 
OOAF OOAF 0091 OOAF 00098 9$-6$.- 
0091 77 0077 OOAF 000A0 7$-6$.- 
OOAF OOAF OOAF 0091 0008 7$-6$.- 
OOAF OOAF OOAF OOAF 00080 7$-6$,- 
OOAF OOAF OOAF OOAF 00088 9$-6$.- 
OOAF OOAF OOAF OOAF 000C0 10$-6$,- 
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$-27$,- g 
$-27$.- : 
$-27$.- : 
$-27$.- : 
$-27$,- 3 
$-27$,- : 
$-27$.- : 
$-27$.- : 
$-27$,- : | 
ia Pex 
0161 C9 OF OO1E9 28% PUSHAB P.ALK + 6326. 
1 DD OO1ED PUSHL #i : 
00028362 BF DD OOTEF PUSHL #164706 : 
6A 3 FB OO1FS CALLS #3 LIBSSIGNAL : | 
02¢0 31 00188 BRW 77$ : 
02 55 D1 OO1FB 29S: CMPL  TARGET_DTYPE, #2 + 6060. 
93 13 Oo1F BEQL ; 
06 5 pi 00 CMPL §_ TARGET_DTYPE, #6 : | 
05 12 0020 BNE : 
528 01 00 00205 30$:  MOVL #1, TARGET_LENGTH + 6061 
I¢ 11 00208 BRB : | 
03 55 01 O020A 31$:  CMPL =‘ TARGET_DTYPE, #3 + 6063 
93 13 00 0D BEQL ; 
07 5 01 0020F CMPL §_ TARGET_DTYPE, #7 ; 
05 iF 00212 BNEQ ; 
58 02 DO 00214 328: MOVL #$#2, TARGET_LENGTH > 6064 
11 00217 BRB : | 
04 55 01 00219 33$:  CMPL =‘TARGET_DTYPE, #4 + 6066. 
05 13 0021C BEQL ; 
08 55 D1 O021E CMPL §TARGET_DTYPE, #8 : 
03 if 00221 BNEQ ; 
58 04 00 00223 34$:  MOVL #4, TARGET _LENGTH + 6067 
OF 01 10 A6 AF 00226 35$:  CASEW 16(R6), #17 #15 : 6071 
0030 0020 0020 0020 0 : 6$ WORD -36$,- : 
0020 0020 0020 0045 0 7$- $3" - : 
0087 006F 005A 0020 0 : 7$-36$.- F 
0020 0020 0020 0020 0024 8$-36$,- : 
9$-36$.- : 
7$-36$,- s 
7$-36$.- : 
7$-36$.- : 
7$-36$.- : 
40$-36$.- ; 
41$-36$.- : 
$35" 6$,- : 
$-36$.- ; 
7$-36$,- ; 
7$-36$.- ; 
7$-36$ : 
6F AD 9F 00248 378 PUSHAB P.AKU > 6106 
1 0D 00 4 PUSHL #i ; 
00028362 8F DD 00 PUSHL #164706 : 
A 3 Fe 6 § CALLS i, LIBSSIGNAL ; | 
$5 bb 9 B 38$:  PUSHL TARGET _LENGTH : 6077 
50 08 AC OD D MOVL UE27 RO : 
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Steep SC+4 
FheRe APs 
#167544 

#7, LIBSSIGNAL 
VALUE2, R 
TARGET_DTYPE, 22(RO) 
TARGETLENGTH, 20(RO) 
VALUE2, R4 

Ré 

ae. DBGSCONV_TQUADWORD_ VALUE 
STATUS, 54$ 

TARGET_DTYPE, #9 

55$ 

STATUS 
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56$ 
TARGET_DTYPE, #5 
53$ 

STATUS 


66$ 

VALUE2, R4 

R4 

a. DBGSCONV_TOC TAWORD_VALUE 
TATUS, 59$ 
TARGET_DTYPE, #26 
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STATUS 
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STATUS 
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RO, STATU 
STATUS, 63$ 
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RO, STATU 
STATUS, 67$ 
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T6_pes¢ 
#, OTSS$CVT_T_G 
R STATUS 
STATUS, 67$ 
STATUS 
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STG _DESC+4 
#*M2R3,R7> 


#167544 
#7, LIBSSIGNAL 
TARGET DTYPE, 22(R4) 
° OTR4) 

ALUE2, R4 

4(R4) 

STG_DESC 

2, OTSSCVT_T_H 

RO, STATUS 

STATUS, 71$ 
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siecb $C+4 

gwen »R7> 

#167544 

#7, LIBSSIGNAL 
TARGET DTYPE, 22(R4) 
#16, 20(R4) 

77$ 
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#1, CONV 
RO. VALUE2 
STG_DESC+4, STG_PTR 
"i, 7] 
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GLOBAL ROUTINE DBGSCONV_TQUADWORD_VALUE(VAL_DESC1, VAL_DESC2) = 

i FUNCTION 

: is routine takes in eneenver tee ascii string and converts it into 
Eorees Serene value according to the given radix 


INPUTS 
VAL_DESC1 = Pointer to a value descriptor to be converted. 


VAL_DESC2 = Pointer to a value descriptor to be returned. 


OUTPUTS 
Overflow status is returned. 


SRcib8G 


ee eee 


BEGIN 

VAL_DESC1: REF DBGSVALDESC, ! Pointer to value descriptor 

VAL_DESC2: REF DBGSVALDESC; ! Pointer to value descriptor 
LOCAL 

CHAR_VALUE: VECTOR(8, BYTE], ' Value of the character 

L H ! Lenght of the input data 

PTR: REF VECTORE YTE) i Pointer to a vector of bytes 

QUADWORD: vecTor(8, BYTE), i 8 bytes of QUADWORD value 

' 


' Return status from coswereten 


STATUS 
STG_DESC: DBGSSTG_DESC; ! String descriptor for signal 


5 Prepare the string descriptor for signaling. 


-DESCEDSC SB. CLASS) = DSCS$K -CLASS S: 
DSCSB-DTY hoes = DSCSK-DTYPE-T; 
Bes $V_VALOE gtENGTHI: 
f $0 LENGTH 


.V 
DS 

DSCSA“POINTER) = “bpescet age pte . LENGTH) /4) 
STG DES Sepp 

DESCLDSC 


DSCSW_L » -VAL_DESC1CDBGSL_VALUE “bOINTER), 


DESC 

a 
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nove’ tH 
TG SPOIRTERS)¢ 


INCR BEGIN. 0 10 7 DO 


UADWORDC. 43,5 2 
CHAR -VALUEC.I] = *0; 


: Convert the value into 8 bytes one by one byte. 


bre = A DESC1COBGSL = YALE LPO POINTER); 
DECR rROn -LENGTH TO™ 


EG 
CASE .VAL_DESC1CDBGSW_VALUE _TOKENCODE) TOKENSK_MIN_OPERAND 
SET TOKENSK-MAX_OPERAND OF 
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H Validate legal 0-9 characters in decimal radix. 
CTOKENSK INTEGER): 
te -PTRCO] GEQ 48 AND .PTRCO] LEQ 57 | 
exse RA VAL ECO = .PTRCO] - 48 
ee, 1, STG_DESC); 
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: Validate legal 0-9, A-F, a-f characters in hexdecimal radix. 
CTOKENSK_HEX_INTEGER): 
SELECTONE .PTRCO] OF 


+ Teak VALUELO = .PTRCO) = 48; 
65 TO 70): ° ’ 


CHAR VALUELO) = .PTREOJ - 55; 
(97 10 1054; nas 
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64 
64 
ee 
64 
64 
$4 
6445 
ee2$ CHAR_VALUECO) = .PTRCO] - 87 
= © P 
6468 COTHERWISE): 
6649 _SIGNAL (DBG$_INVNUMBER, 1, STG_DESC); 
6451 END; 
ge8g | 
6454 ! Validate Legal 0-1 characters in binary radix. 
6436 CTOKENSK_BIN_INTEGER): | 
645 BEGIN | 
6658 IF .PTRCO] GEQ 48 AND .PTRCO) LEQ 49 
| 
6460 CHAR_VALUECO) = .PTRLO] - 48 
6461 ELSE 
6468 SIGNAL (DBG$_INVNUMBER, 1, STG_DESC); | 
646 END; 
ose | 
ecg : Validate legal 0-7 characters in octal radix. 
6468 CTOKENSK_OCT_INTEGER): | 
ei? IF .PTRCO) GEQ 48 AND .PTRCO) LEQ 55 | 
eer ex se HARA WALUELOI = .PTRCO] - 48 
74 SIGNAL (DBG$_INVNUMBER, 1, STG_DESC); | 
6475 END; 
6476 
647 CINRANGE, OUTRANGE): 
6478 $DBG_ERROR( 'DBGEVALOP\DBGSCONV_TQUADWORD_VALUE "); 


3 79 
; é TES; 
; 6 STATUS = 
: 6 DBGSCVT_TQUADWORD_TO_VALUE(QUADWORD, CHAR_VALUE, .VAL_DESC1CDBG$W_VALUE_TOKENCODE)); 
3 2 5 H Test overflow status. 
; 6 IF NOT .STATUS 
3 6 8 HE 
3 6 4 BEGIN 
3 é ; 2 If we could convert to an unsigned Quadword, do that with message. 
: 6 £298 4 STATUS = 
3 6 649% 4 DBGSCVT_TUQUADWORD_TO_VALUE(QUADWORD, CHAR_VALUE, .VAL_DESC1CDBG$W_VALUE_TOKENCODE]); 
: 6 6496 4 IF NOT .STATUS THEN EXITLOOP 
; 6389 6497 4 SIGNAL(DBGS_IINTOVF, 1, DBGSGL _OPCODE_NAME) ; 
3; 6390 6498 END; 
3 6391 6499 
: 6 % 6500 PTR = .PTR + 1; 
: 639 6501 END; 
3 6394 650¢ 
3; 6395 65 
; ° 38 e208 H Install the value and fix up the value descriptor. 
: 6398 6506 ' * CHSFILL CRC or ;_ “VAL DESC ICDBGSL VALUE_POINTER)); 
3 6399 650 CH WsHOV ES Q b, zvAC DESC2CDBGSC_VALUE_POINTERJ); 
: 6400 6508 2! Est = 6 $c1 
: 6401 65 RévURR’ Tus: 
3 6402 6510 1 END; 
-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
4 47 42 66 SC SO GF 4C 41 56 45 47 42 46 a OSBF3 P.ALL: ASCII \''DBGEVALOP\<92>\DBGSCONV_TQUADWORD_VALU\ 
F 464 52 4F 57 44 41 55 51 54 SF 56 4E GF 4 05¢08 
55 4C 41 36 5c 
45 05€15 sASCII \E\ 
-PSECT DBGSCODE,NOWRT, SHR, PIC,O 
O3FC 00000 ENTRY ReeRonach9 TQUADWORD_VALUE, Save R2,R3.R4.R5.-; 
59 000000006 00 9€ 0000 MOV SSienae R9 
E 1¢ C2 000 SUBL ® 
02 A 010E «8F B MOV 276 ST DESC#2 
3 04 ac p 1 MOVL YAL ,GESC 
4 14 «OA ¢ 1 MOVZWL LENGTH 
56 : 1A MOVW or: nb e- DESC 
03 «Ab : 1D ROVAB 
7E 04 C 021 DIVL a, os 
000000006 0 1 FB 00025 CALLS + Dpescer. _TEMPMEM 
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3; Routine Size: 


62 
9 00028180 
ee 1 
1 
14 
: 1 
18 
9 14 
58 
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+ 08 
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Hs, (PTR), CHAR_VALUE 


QUADGORD 
#5, DOGSCYT _TQUADWORD_ T0_VALUE 


CHAR_VALUE 


Syobone 
#3, DBGSCVT_TUQUADWORD_TO_VALUE 
RO, STATU 


STATUS, 19S 
DBGSGL_OPCODE_NAME 
#165539 

#3, LIBSSIGNAL 

PTR 

1, 18$ 

19$ 

2$ 

VAL_DES 


C2, RO 
#8, QUADWORD, @24(RO) 
STATUS, RO 
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H ot ¢ ° 12 } GLOBAL ROUTINE DBGSCONV_TOCTAWORD_VALUE(VAL_DESC1, VAL_DESC2) = 

3 64 6515 1 ! FUNCTION 

3 64 6514 1! This routine takes in unconverted ascii string and converts it into 
; othe 6515 1! 16 bytes octaword value according to the given radix 

; 640 e218 1! (tokencode). 

; 6410 6517 1! 

3; 6611 o2i8 1 ! INPUTS 

3 ei6 oa)? : VAL_DESC1 = Pointer to a value descriptor to be converted. 

3 eeie be 1 ! VAL_DESC2 = Pointer to a value descriptor to be returned. 

3 9638 §2 g 1 ! OUTPUTS 

3 641 6524 1! Overflow status is returned. 

; 6418 6525 1! 

3; 6419 65 $ 1 

3; 6420 65 BEGIN 

3; 6421 6528 

3 64 ¢ 6529 MAP 

3 64 6530 VAL_DESC1: REF DBGSVALDESC, ! Pointer to value descriptor 
; Pf : $33) VAL_DESC2: REF DBGSVALDESC; ! Pointer to value descriptor 
3; 6426 65 i LOCAL 

3 6427 6534 CHAR_VALUE: VECTOR(C16, BYTE], ! Value of the character 

3 6428 6535 LENGTH ' Lenght of the input data 

3; 6429 $238 PTR: REF VECTORE BYTE), ! Pointer to a vector of bytes 
; 6430 695 OCTAWORD: VECTOR(16, BYTE), i 16 bytes of octaword value 
3 6431 6538 STATUS ' Return status from conversion 
3 otes 6539 STG_DESC: DBGSSTG_DESC; ! String descriptor for signal 
; eth 6540 

3 64 6541 

3 eh ost¢ } Prepare the string descriptor for signaling. 

3; 6457 6544 STG_DESCCDSC$B_CLASS] = DSCS$K_CLASS_S; 

3; 6638 6545 STG_DESCCOSCSB tbh # = DSC$K_DTYPE_T; 

3 6439 6346 LENGTH = .VAL_BESC1 DaGSW_VALOE LENGTH); 

3 6440 654 STG_ ESCEDSCSO_LENGTH = TLENGTA; 

3 6441 6548 STG_DESCCDSCSA_POINTER) = DBGSGET_TEMPMEN( (3+ .LENGTH)/4) 

3 644 6549 CHSMOVE (.STG_DESCCDSCS$W_LENGTHJ, VAL_DESC1COBGSL_VALUE_POINTER], 
3 644 6550 -STG_DESCCDSCSA_POINTER)); 

3 6444 6551 

3 6445 $236 INCR I FROM 0 TO 15 DO 

3 6446 655 BEGIN 

3 6447 6554 Me™ by = 0; 

3 6448 6555 CHAR_VALUEL.1] = 0; 

3 6449 9228 END; 

3; 6450 655 

3; 6451 $238 

; 0636 $237 Convert the value into 16 bytes one by one byte. 

3 6454 6561 PTR = .VAL_DESC1CDBGSL_VALUE_POINTER]; 

3 6455 6266 DECR I FROM .LENGTH TO°1 BY T DO 

; 9626 656 BEGIN 

3 645 6564 CASE .VAL_DESC1CDBGS$W_VALUE_TOKENCODE] FROM TOKENSK_MIN_OPERAND 
3 6458 6565 TO TOKENSK“MAX"OPERAND OF 
3: 6459 6566 SET 

; 6460 6567 
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ieeect9He QO29E YAS Shgsae stsoZeg, Pane 
} Validate legal 0-9 characters in decimal radix. 
CTOKENSK. INTEGER): 
Z -PTRCOJ] GEQ 48 AND .PTRCO] LEQ 57 
CHAR_VALUECO] = .PTRCO] - 48 
SIGNAL (DBGS_INVNUMBER, 1, STG_DESC); 
Validate legal 0-9, A-F, a-f characters in hexdecimal radix. 
CTOKENSK HEX, INTEGER]: 
SELES TOME -PTRCO) OF 
48 TO 57): 
(65 me MUECOD = .PTRCO] = 48; 
97 7 FAs YALUECOI = .PTRCO] - 55; 
CHAR _VALUECO] = .PTRCO) - 87; 


COTHERWISE): 
‘. SIGNAL (DBGS_INVNUMBER, 1, STG_DESC); 


END; 
Validate legal 0-1 characters in binary radix. 
CTOKENSK BIN_ INTEGER): 
IF .PTRCO) GEQ 48 AND .PTRCO) LEQ 49 
CHAR_VALUELO) = .PTRCOJ = 48 
PS OES STEER, 1, STG_DESC); 
: Validate legal 0-7 characters in octal radix. 
CTOKENSK_OCT_INTEGER): 
IF .PTRCO) GEQ 48 AND .PTRCO) LEQ 55 
exse MARAWALUECOI = .PTRCO) - 48 
. SIGNAL (DBG$_INVNUMBER, 1, STG_DESC); 


° 
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CINRANGE, OUTRANGE): 
$DBG_ERROR(' DBGEVALOP\DBGSCONV_ TOCTAWORD_VALUE"); 


GEVALOP S$ep-1984 00:32:25 AX-11 Bliss-32 V4.0-74 Pa 2 
ita tty ig sen-1984 99:82:82 HONS Chi Sbace vitae og3-1 ae 38e 
6 18 6 5 TES; 

; g 9 66 8 STATUS = 
3 6 66 8 DBGSCVT_TOCTAWORD_TO_VALUE(OCTAWORD, CHAR_VALUE, .VAL_DESC1CDBGSW_VALUE_TOKENCODE)); | 
; é § 66 9 ! Test overflow status. | 
; 63¢5 6636 if NOT .STATUS THEN EXITLOOP; | 
: 6 § 66 PTR = .PTR + 1; | 

3 6528 6635 END; 

: é : es 3 : Check for integer overflow on the sign bit. 
3 $3 j 6659 if gOcTAWORDL153 GEQ 128 | 
5 63 4 6641 SIGNAL(DBG$_IINTOVF, 1, .DBGSGL_OPCODE_NAME); | 
3 é3 oss Install the value and fix up the value descriptor. | 
: 6538 6645 CHSMOVE(16, OCTAWORD, .VAL_DESC2CDBGSL_VALUE_POINTER]); | 
> 6539 6646 RETURN .STATUS; 
: 6540 664 END; | 
.PSECT DBGSPLIT,NOWRT, SHR, PIC,0 | 
24 47 42 44 SC SO 4F 4C 41 56 45 47 42 44 22 05C16 P.ALM: .ASCII \"'DBGEVALOP\<92>\DBGSCONV_TOCTAWORD_VALU\  ; 
SF 446 S52 GF 57 41 54 43 GF 54 SF 56 GE 4F 4&8 05€25 : 
55 4C 41 «56 05C34 : 
45 05¢ <ASCII \EN\ ; | 
.PSECT DBGSCODE.NOWRT, SHR, PIC,0 | 
01FC 00000 ENTRY DBGSCONY TOCTAWORD_VALUE , Save R2,R3,R4,R5,~; 6511 | 
58 000000006 00 9 90002 MOV LIBSSIGNAL, R8 : 
5E : SUBL2 #44, SP : 
02 AE 010E «BF 9900¢ MOvW #276, STG_DESC+2 3 6545 
5 046 =A y 1 MOVL yAL Bescie R7 > 6546 
56 14 =A ¢ 1 MOVZWL 20(R7), LENGTH : 
: 56 1 MOV LENGTH, S16_DESC > 6547. 
1 ROVAB (R6), R > 6548 
7E 5 IVL a, Rd, =(SP ; | 
000000006 00 ALLS basse! TEMPMEM ; | 
04 AE MOVL 4 Est +4 ; | 
04 «BE 18 8B moves STG bese. @24(R7), @STG_DESC+4 6550, 
CLRB Chan vaLogt > 65564 | 
CLRB—s- CHAR -VALUE 1) > 6555 | 
ss 33 ROVE. a4) Pr S B8et | 
Movie fine, + 828i | 
BR 16$ : 


———_——— 
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F 1 10 A? AF F 2%: CASEW 16(R7), #1, #15 ; | 
080 020 24 ¢§: WORD 18 $,- : 
Hee eu: Fa 
0020 $8 06C 3$- $.- : | 
4$-3$,- : 
4$-3$.- : 
4$-3$.- ’ 
a $,°- 3 
108-38, : | 
4$-33,- : 
4$-3$.- : 
4$-3$,- : 
t3-38"" ey 
00000000" EF 9F 00074 4$ PUSHAB P.ALM + 6623 
1 DD OO07A PUSHL #1 : 
00028362 BF DD 9007¢ PUSHL #164706 : 
60 11 0008 BRB 14$ : 
30 63 91 0084 5$ CMPB ss (PTR), #48 ; 6573) 
51 1 00087 BLSSU 13 : 
39 63 91 00089 (MPR (PTR), #57 ; 
43 11 0008C BRB 11$ : 
30 63 91 OOO8E 6$ CMPB ss (PTR), #48 + 6587 
03 1F 00091 BLSSU 7$ : 
39 6 91 00093 CMPB (PTR), #57 : | 
: 1B 00096 BLEQU 12 : 
41 8F 63 91 00098 7$ CMPB ss (PTR), #65 > 6589 
0p 1F 0009C BLSSU : 
46 BF 63 91 0009 CMPB (PTR), #70 : | 
7 1A QOOA aps $ : 
1c AE 63 7 83 O00A4 SUBB3 #55, (PTR), CHAR_VALUE + 6590) 
¢ 11 000A9 BRB 5$ : 
61 BF 63 91 OOOAB 8S: CMPB ss (PTR), #97 > 6591 
29° 1f OOOAF BLSSU -13$ F 
66 «BF ; 91 00081 CMPB = (PTR), #102 F 
1A 00085 BGTRU 13$ F | 
1 AE 63 A9 =: BF sd: 00087 ADDBS #-87, (PTR), CHAR_VALUE : 6592 
: 11 000BD BRB 15$ ; 
30 63 91 OOOBF 9S CMPB ss (PTR), #48 + 6603 | 
16 1F 000C2 BLSSU -:13$ : 
31 : 91 Ooc4 CMPB ss (PTR), #49 ; 
11 000¢7 BRB 11$ : 
30 ‘ 91 000C9 10$: CMPB (PTR), #48 > 6615 
: 1F O00CC BLSSU 13S : 
37 91 ace CMPB (PTR), #55 3 | 
7 1A 00001 118: BGTRY 13$ ; 
1¢ AE 63 0 83 Obs 12$:  SUBBS #48, (PTR), CHAR_VALUE : 6617. 
D 9D BRB 15$ : 
: DD OOODA 138:  PUSHL SP t 6619 
DD 0000C PUSHL #1 ; 
00028180 8F DD DE PUSHL #164272 : 
se 3 FB OOOES 14%: CALLS # L 1BSS1GNAL : | 
E 19 A 3¢ £7 15$:  MOV2WL 16(R7), -(SP) > 6628. 
20 AE OF O00EB PUSHAB CHAR_VALUE : 


igo se-t 984 39:82:82 HOEeuG. Src Soaae vacor.033, 1 


16 AE OF OO0E PUSHAB OCTAWORD 
000000006 ; F i CALLS i, DBGSCVT_TOCTAWORD_TO_VALUE 
D F MOVL TATY 
A E FB BLBC STATUS, 18$ 
og F INCL PTR 
02 F5 00100 16$:  SOBGTR 17$ 
03 11 001 BRB gs 
FF47 31 00105 178 BRW 
80 8F 18 AF 100108 18$: CMPB OCTAWORD+15, #128 
11 16 001 BLSSU 19S 
00000000" EF DD 0010F PUSHL  DBGSGL_OPCODE_NAME 
1 DD O15 PUSHL #1 
000286A3  8F DD 0011 PUSHL #165539 
8 3 FB 0011D CALLS #3, LIBSSIGNAL 
0 08 f p 0120 19$ MOVL VAL_DESC2, R 
18 «BO 0c Ar 1 00124 MOVC3 #16, OCTAWORD, @24(RO) 
5 56 D0 901 A MOVL STATUS, RO 
04 00120 RET 


; Routine Size: 302 bytes, Routine Base: DBGSCODE + 0704 
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; ¢ 664 ! SLOBAL ROUTINE DBGSCONV_TRFA_VALUE(VAL_DESC) = 

3 65446 685 * ! FUNCTION 

3 6545 , This Ag ee takes in unconverted ascii string and converts it into 
; 6 $ 66 § 1! 6 bytes Record File Address value according to the given radix 
3 654 66 1! (tokencode). 

3; 6 re 6654 1! 

3 654 6655 1 ! INPUTS 

3 e , oe § } : VAL_DESC = Pointer to a value descriptor to be converted. 

3; 6 66 8 1 ! OUTPUTS 

3 ? 66 1: Converted value is returned in VAL_DESC. 

3 6660 1! 

3; 6555 6661 1 

3; 6 O36 BEGIN 

; 6 666 

3; 6 : 6664 

3 ? 25 6665 VAL_DESC: REF DBGSVALDESC; ! Pointer to value descriptor 
tp BF lcm 

3 o206 6668 CHAR_VALUE: VECTOR(6, BYTE), ! Value of the character 

; 656 9662 LENGTH ! Lenght of the input data 

3; 6564 6670 cree REF F VECTORC BYTE), ! Pointer to a vector of bytes 
: 6565 6671 VECTORE6, BYTE), ! 6 bytes of RFA value 

3 0208 oore ! Return status from conversion 
3 636 6673 STATUS DBGSSTG_DESC; i String descriptor for signal 
; 6569 6675 

$ o2t0 oo78 : Won't accept the negative constant. 

3 o2r¢ pth IF .VAL_DESCCDBGSW_VALUE_SIGN_CODE] EQL TOKENSK_NEGCONST 

; o2re eet SIGNAL (DBGS$_CVTNEGUNS, 1, .DBGSGL_OPCODE_NAME); 

3 6276 eons 

3 $37 oo8; Prepare the string descriptor for signaling. 

; §276 5 $16 ~PESctDstse. eared, = paces ~fLASs -$: 

3; 6580 STG-DESCCD = DSCS PE-T 

3 6581 LENGTH = .V Mite VALUE TLENGTH: 

3 one STG ~DESCEDSC 

3; 658 6689 STG DESCCDSC$A_POIN cseet TEMPMEM( (3+.LENGTH) /4); 

3; 6584 CHSAOVE (.STG pESCtD bersy TENG te 2 VAL _DESCCOBGSL VALUE _POINTER], 

; $3 5 $99) -STG_DESCCDSCSA_POINTER)) 

3; 658 669 

3; 6588 6694 INCR I FROM 0 TO 5 DO 

3 $289 6695 N 

3 65 0696 RFAL.1] = 

3 6591 669 CHAR *VALUEL. 1 = 0; 

3 6296 6698 END;~ 

: 8394 $9 

: 6595 67 1 ! Convert the value into 6 bytes one by one byte. 

3 re 67 : bre = .VAL_DESCCDBGSL VALS -POINTER]; 

3; 6598 67 DECR I FROM .LENGTH TO 1 1 00 


— ———e = ; 
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| 
3 6599 6705 BEGIN 
5 6600 67 CASE .VAL_DESCCDBGSW_VALUE_TOKENCODE) FROM TOKENSK _MIN_OPERAND 
; 6601 67 TO TOKENSK“MAX"OPERAND OF 
; : 67 8 SET 
: 660 or 
: oe8e a Validate legal 0-9 characters in decimal radix. | 
; rtd ers ; CTOKENSK_INTEGER): | 
; 6803 6719 4 IF -PTRLO] GEQ 48 AND .PTRCO) LEQ 57 | 
; gery ey CHAR_VALUECO] = .PTRLO] - 48 
; 661¢ 6718 4 ELS 
: 661 6719 4 SIGNAL (DBG$_INVNUMBER, 1, STG_DESC); 
3 6614 6720 END; | 
Be | 
3 est? o7 § ; Validate legal 0-9, A-F, a-f characters in hexdecimal radix. | 
: 6619 67 5 ; CTOKENSK_HEX_INTEGER): 
; 66 1 67 ; 4 SELECTONE .PTRCOJ OF 
: 66 : 6729 4 48 TO 57): 
3 e0 ¢ 67 , 2 és SnAs agi Atuecos = .PTRCLO) - 48; 
> 6626 67 é 4 WAR VALUECO3 = .PTRLO] - 55; 
: 6627 6733 4 t97 § 10 | 
: 6628 6734 4 CHAR_VALUECO] = .PTRCO) - 87; 
3 6629 6735 4 COTHERWISE): 
: 66 6736 4 SIGNAL (DBGS$_INVNUMBER, 1, STG_DESC); 
> 6631 6737 4 ES; 
3 yoo} 6738 END; 
ig or | 
; o8 5 ore} : Validate legal 0-1 characters in binary radix. 
; e537 eres ; CTOKENSK BIN. INTEGER): | 
; 6639 6745 4 IF .PTRCO] GEQ 48 AND .PTRLO] LEQ 49 
; 6641 e747 ‘ eu ge HAR-VALUECO] = .PTRCO] - 48 
; peak erie 4 SIGNAL (DBG$_INVNUMBER, 1, STG_DESC); 
+ 6644 6730 ND; 
: beee 73 | 
; es? 6758 : Validate legal 0-7 characters in octal radix. 
; pea: 6735 CTOKENSK_OCT_INTEGER): | 
> 6650 6796 rs EGIN 
; 6651 ers 4 IF ,PTRCO} GEQ 48 AND .PTRCO) LEQ 55 
; e538 6759 4 “ CHAR_VALUELO} = .PTRCO) - 48 
: 6655 6761 4 SIGNAL (DBGS_INVNUMBER, 1, STG_DESC); 
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; 66 763 END; 
3; 66 76 
; 66 764 CINRANGE, OUTRANGE): 
; 66 6769 $DBG_ ERROR (' DBGEVALOP\DBGSCONV_TRFA_VALUE"); 
3 6661 £798 TES; 
: 666¢ 6768 
: 666 676 STATUS = 
: 6664 6770 DBGSCVT_TRFA_TO_VALUE(RFA, CHAR_VALUE, .VAL_DESCCDBG$W_VALUE_TOKENCODE)); 
; 6666 ore 
3; 666 677 ' Test overflow status. 
: 6668 6774 i 
3 6669 6775 if NOT .STATUS 
3 6670 6776 THEN 
3 6671 6777 4 BEGIN 
: 667 6778 4 SIGNAL (DBG$_IRFAOVF, 1, .DBGSGL_OPCODE_NAME); 
: 667 6779 4 EXITLOOP; 
: 6674 6780 END; 
3; 6675 6781 
3 e678 67 ; PTR = .PTR + 1; 
3; 667 67 END; 
; 6678 67 
: 6679 6785 
3; 6680 67 Install the value and fix up the value descriptor. 
> 6681 6787 
3 668 67 on DESC DBG$V_DHDR_UNCVT) = 
3 668 6789 VAL-DESCCDBG$B_DHDR ef CODE > OF ask _TYPE_RFA; 
3 6684 6790 VAL ~DESe DBG$B-VALUE_C = 0; 
> 6685 6791 VAL DESC DBGSB— ALUE-OT = 0; 
; 6686 679 DaGSu “VALUE PENGTH H}] = 6; 
: 668 679 CH FILL CHC "3716, .VAL oem VALUE_POIN TERI); 
; 6688 679% VE(6, RFA, wai DESC DBGS UE_POINTER); 
: 6689 6795 VAL_DESCCOBG$W. VALUE ~ TOKENCODE 
; 6690 6 VAL~DESCCDBG$W~ VALUE ~SIGN_CODE 
; 6691 6797 RETORN .VAL_DESC; 
3 6692 6798 1 END; 
.PSECT DBGSPLIT,NOWRT, SHR, PIC,O 
26 47 42 46 SC 50 GF 4C 41 56 45 47 42 44 1 5C39 P.ALN: .ASCII <29>\DBGEVALOP\<92>\DBGSCONV_TRFA_VALU\ 
55 4C 41 56 SF 41 46 52 54 SF 56 GE 4F 4 3c48 noniiieteiae 
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00000000" 
00028362 
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DNS 
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7E 


on 


Kk 9 
vos-000 Sr$ep=198e 21:54:82 — Ebgau. SacSbaGevaLor.050:1 P28 8} 


66 oBF : Ht cB cMPB 3S s«(PTR), #102 : 
& CF very 4 : 
146 AE 62 Ao —sOBF $1 ot AD6 rn 7, (PTR), CHAR_VALUE 3 6734) 
30 91 D9 10$ CMPB 3S s«(PTR), #48 + 6745. 
i oc BLSSU -14$ : | 
31 6 1 0000 CMPB 0s (PTR), #49 : | 
11 000€ BRB 12$ : | 
30 6 91 OOOES 118 CMPB 4s (PTR), #48 : 6757) 
1F O00E BLSSU 14S : 
wh 3a OOOEB 128:  BeTRU tage’ > ; 
14 AE 62 0 48 E 188: SURES r8, (PTR), CHAR_VALUE ; 6759 
D 11 OO0F BRB 16$ : 
: DD OOOF4 148 PUSHL SP + 6761 
DD OF6 PUSHL #1 : 
00028180 8F DD OF PUSHL #164272 ; 
68 : FB FE 15$: CALLS 4&3 L1BSS1GNAL ; 
7E 109 A 3¢ 910 16$:  MOVZWL 16(R7), -(SP) + 6770 
18 AE 9F 00105 PUSHAB CHAR_VALUE : 
14 AE 9F 00108 PUSHAB RF : 
000000006 99 FB 001 CALLS #3, DBGSCVT_TRFA_TO_VALUE : 
5 ° D Bt MOVL $ 
OF £8 0011 BLBS STATUS, 17$ : 6775 
69 DD 00118 PUSHL  DBGSGL_OPCODE_NAME + 6778 
oi DD OO11A PUSHL ; 
00028FCB 48BF «ODD 0011 PUSHL #167883 : 
68 03 FB 001 CALLS #3, LIBSSIGNAL : 
OA 11 001 BRB 20$ : 6777 
5 0g 00127 17$: INCL PTR + 6782 
02 56 €5 00129 18$:  SOBGTR 19$ + 6704 
: 11 0012¢ BRB 6s : 
FF3B 31 OO12E 19$: BRW $ : 
04 A? 20 BA 00131 20$:  B1CB2 #32, 4(R7) : 6788 
06 Az 14 90 00135 MOVB #20, G(R?) : 6789 
14 A? 06 DO 00139 MOVL #6, 20(R7) : 679 
10 30 6E i 9 2c O13 MOVCS #0, (SP), #48, #16, @24(R7) : 679 
18 87 OC AE 06 28 00144 MOVC3 #6, RFA, @24(R7) + 6794 
10 A? D4 O14A CLRL —«- 16 (R77) : 6795 
50 57 00 00140 MOVL 7, RO : 6797 
04 00150 RET : 6798 


3; Routine Size: 337 bytes. Routine Base: DBGSCODE + 0832 


9 
WB-Sen-1984 90:52:25 YaNett BLiss=52 v4-On742 Page 190 


+ 6694 1 | 
: p92 ! GLOBAL ROUTINE DBGSDO_MAPPING (LEFT_ARG) : NOVALUE = | 
: oeo9 6 8 1 ! FUNCTION 

3 2228 6 1! Perform a Lenquegecspec tf ic Au} mapping” on the given | 
g 08 6 1! value descriptor. For example, in FORTRAN, we map unsigned integer 

; 6 4 05 1! types to signed integer types. because the compiler is given us 
3 67 Be 1; the BU, WU, or LU types, while the language really does signed 

; ore 6807 1! arithmetic on these. 

; 67 os 1! 

; 6704 6809 1 ! INPUTS 

3 6706 6 19 } LEFT_ARG - points to the value descriptor to be mapped. 

; 670 6 \¢ 1 ! OUTPUTS 

$ 444 eats ; : The value descriptor pointed to by LEFT_ARG may be modified. 

; 6710 6815 BEGIN 

; 6711 oats 

HY orig 681 LEFT_ARG: REF DBGSVALDESC; 

3; 671 6818 

3; 6714 6819 LOCAL 

3 6715 6820 COMPLIST: REF VECTORC,LONG), 
3 ors 6821 DSTPTR, 

3; 671 68 ¢ LEFT_TYPE ! Dtype for original left operand type 

; 6718 68 MAKE-BOOLEAN_FLAG 

3; 6719 6824 MAP_TBL_ENTRY: TYPE _GRAPHSENTRY,! An entry in the Type Mapping Table 

3; 6720 6825 NAME: REF VECTORC BYTEI, ! Name corresponding to typei 
3 6721 6826 SYMID: REF RSTSENTRY, | 
3; 67 ¢ 6827 TYPEID: REF RSTSENTRY; ! Typeid in descriptor 
3; 67 6828 

3; 6724 6829 

3; 6725 6830 ! For ADA, we map the enumeration type BOOLEAN into the dtype 

3 67 6 6831 i DSCSK_DTYPE_TF. The reason for this is that we want the logical 

3 672 O86 ! operators AND, OR, XOR, NOT to work on BOOLEAN (but not other 

3 ores eth } enumeration types). 

3; 67 6835 IF .DBGSGB_LANGUAGE EQL DBGSK_ADA 

3; 6731 6836 THEN 

: 67 3 rete BEGIN 

3; 67 6838 IF .LEFT_ARGCDOBGS$B_DHDR_FCODE] EQL RSTSK_TYPE_ENUM 

: 67 6839 THEN 

3; 6735 6840 4 BEGIN 

3; 6736 6841 4 TYPEID = .LEFT_ARGCOBGSL_DHDR_TYPEID]; 

3; 6737 § 4 IF .TYPEID NEQ 0 | 
3; 6738 6 4 THE | 
3: 6739 6844 BEGIN | 
3; 6740 ont? DSTPTR = .TYPEIDCRST$L_DSTPTRI; 

3 6741 3 NAME = DBGSGET DST _NARE(.DSTPTR) ; | 
3; 674 6 : If .NAMECO) EOC 

3 674 6848 THEN 

3 6744 6849 6 BEGIN 
3 6745 6850 6 IF CHSEQL(7, NAMEC1), 7, UPLIT (ZASCII ‘BOOLEAN')) 
3 674 6851 § THEN | 
; ore 6 26 4 BEGIN 
3 6749 6854 7 ! We have determined we have data of type BOOLEAN”. | 
; 6750 6855 7 ! Do some additional checking here: 
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19-50-1984 4 99: 3: $2 AX-11 Bliss-32 V4.0-7 


-Sep-1984 DEBUG. SRC.JDBGEVALOP. bs 31 
check that ghe epee ten elements are 
(FALSE, TRUE). reason is that the user may 


have redef ined BOOLEAN so we may not be looking 
at a “‘real"’ boolean type. 


TYPEIDCRSTSL_TYPCOMPCNT) EQL 2 


ee eee ee 


ir. 
HEN 
BEGIN 
COMPLIST 3 Mbig tt e a TYPCOMPLSTJ; 
SYMID = MPLISTLO 
DSTPTR 2 SYAID RST 


NAME, = DBGSGET st. gTet DETER: 
THEN 


BEGIN 
IF CHSEQL(S, NAMEC1) 
5° UPLIT (£ASCII "FALSE')) 


sap): 


BEGIN 
IF CHSEQL(4, NAMEC1] 
* 4; UPLIT (£ASCII "TRUE*)) 


BEGIN 


! We have finally decided that it 
is OK to change the dtype to TF. 


FT_ARGCDBG$B_DHDR reas} = RSTSK_TYPE_ATOMIC; 


E_CLA ASS) = DSCSR_CLASS_S; 
“DTYPE) = 2PSCsK- DTYPE-TF; 


lt the Type Mapping Table to see if we need to change the dtype 
ther the. eft or the right operand. 

PE = DBGSGET pryer (.LEFT_ARG); 
TBL NEQ TABLEBA 


I 
R I FROM 0 TO .MAP_TBL_SIZE - 1 DO 


NE 


| 
oP -Sep-1 :32:25 AX-11 Bliss-32 Vv4.0- Page 192 
vive if se0- 1944 90:32:82 DEBUG. SR hcibeeevacor.633; 31 ae 335 
; 913 4 BEGIN 
3 914 4 MAP_TBL_ENTRY = .MAP TRUE) 1); 
3 681 915 4 IF [MAP-TBL_ENTRY EQC EXITLOOP; 
3 i 6916 4 IF :MAP_TBL_ENTR RYCTYPE ° GRAPHSE LLOWER_TYPE] EQL .LEFT_TYPE | 
‘Bi BR ein 
3 6815 69 ! We have found a mapping. Change all the information 
: 18 24 1 in the descriptor accordingly. 
; 19 24 § LEFT. TYPE = .MAP_TBL_ENTRYCTYPE_GRAPHSB_HIGHER_TYPE); 
; 6925 ! If we are mapping to a non-vax_standard type, we need 
; es 2 24 § } to change the fcode. | 
; 6928 if .LEFT_TYPE GTR DBGSK_MAXIMUM_DTYPE 
3 6824 6929 5 THEN - 
3 6825 6930 6 BEGIN 
; 68 g 6931 6 LEFT_ARGCDBGSB_DHDR_FCODE] = .LEFT TYPE = DBGSK_MAXIMUM_DTYPE; 
3 68 69 g 6 LEFT-ARGCDBG$B_VALUE_CLASS] = DSCS$R_CLASS_2; 
3 68 $ 69 6 tEFT™ “ARGCDBG$B_VALUE_DTYPEJ = DSCSK-DTYPE—Z; 
; 68 6935 § ELSE 
3 6831 6936 6 BEGI 
3 6832 6937 6 LEFT_ARGCDBG$B_DHOR FCODE] = RSTSK TYPE ATOMIC; 
: eth 6938 6 LEFT ~ARGEDBGSB “VALUE_CLASS] = DBGSMAP_BTYPE_CLASS( 
3 6835 694 5 GF ert ARcCDBGsB VALUE CLASS] EQL DSCS$K_CLASS_SD 
3 6836 6941 6 THEN TRUE ELS 
3; 6837 694 2 
3; 6838 694 $ 
3 6839 6944 4% END; 
3 6840 6945 3 END; ! End of INCR. 
> 6841 6946 2 END; 
3 6842 6947 1 END; ! End of DBG$DO_MAPPING 


LEFT _ARGLDBGSB VALUE OTYPE?” -LEFT_TYPE; 
-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
| 


05¢57 -BLKB 1 
00 4—€ 41 45 $f 4F 4F 42 bee28 P.ALO: .ASCII \BOOLEAN\<0> F 
00 00 00 45 5 $f 41 46 05C60 P.ALP: .ASCII \FALSE\<0><0><0> : 
45 55 52 54 05C68 P.ALQ: .ASCII \TRUE\ 3 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


OFFC 00000 ENTRY DBGSDO_MA MAPPING, Save R2,R3,R4,R5,RO.R7.RB,~ ; 6800 
fe ee Real aE we, : 
9 6 Op 3 Bt CMPB pacscs_ LANGUAGE, #9 > 6835 
if iF BNEQ 4 ; 
57 04 AC D 2 MOVL LEFT_ARG, R? > 6838 
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¢ 99: sf: $2 AX-11 Bliss-32 Xtaeso$351 


DEBUG. SRC JDBGEVALOP.B 
(R7), #4 
gala TYPEID 
(TYPEID), DSTPTR 
#1, 


NAME 
NAME), #7 

i. 1(NAME), P.ALO 
Q¢TYPEID), #2 
4 


4, COMPLIST 
OMPLIST), SYMID 
EDL DSTPTR 


T 
DBGSGET_DST_NAME 
NAME 

AME), #5 


(NAME), P.ALP 


1 

MPLIST), SYMID 
YMID), DSTPTR 

PTR 
DBGSGET_DST_NAME 
NAME 

oe » #4 


(NAME), P.ALQ 


(R7) 
8657, 20(R7) md 
cc G 


er DTYPE 
T TYPE 


$s 
1 
0 
N 
$ 
5 
$ 
( 
2 
$s 
1 
0 
N. 


Sear, R6 
“1, 1 


as 
QMAP_TBLCI], MAP_TBL_ENTRY 
#0, #8, MAP_TBL_ENTRY, LEFT_TYPE 


#8, #8, MAP_TBL_ENTRY, LEFT_TYPE 
LEFT_ARG, RO 
" FTARG, RI 

(RT), R2 
LEFT_TYPE, #43 
r 
2(R2 
6 


3 LEFT.TYPE, 6(RO) 


o 

so ve) 

~m WWM 
Own OO NRW uF 


Se Se Se Se Se Se Ge Se Ge Se Ge Se Ge Fe Se Ge Se Ge Fe Ge Se Se Be Se Ge Ge Se Be Se Be Se Be Se Be Se Se Se Se Be Se Be Be Ge Be Be Fe Se Fe Fe Se Se BeBe Se Be Se Be 


MRMWWw 


SEE } 
| 
' 


ROIS REE WNL ASET,, = g 


| 
0 €1 3$: MOVE #2, 6(RO) : 6937. 
03 A $ eS CMPB OS s«3(R2), + 6940. 
E BNEQ 4$ : | 
1 bb EB PUSHL #1 : 
: 1 ED BRB 5$ : 
D4 OOOEF 4$: CLRL = = (SP) : 
4 DD OOOF1 5$: PUSHL LEFT_TYPE : 6939. 
; F F CALLS #2, BeGshap DTYPE_CLASS i 
9 F MOV. R (R2) : 
4 9 F MOV LEFT TYEE. 2(R2) + 694 
6 F 1 $$ AOBLSS R6, T, 2 3; 691 
04 001 $ RET + 694 


; Routine Size: 


| 
261 bytes, Routine Base: DBGSCODE + 0983 | 
| 
| 


D 10 
16-Sep-1984 00:32:25 AX-11 Bliss-32 V4.0-74 Page 195. 
eet ri 90:32:82 DEBUG. SRCTDBGEVML OD. 635;1 9° 30). 
: $ 6%8 } GLOBAL ROUTINE DBGSEVALOP_SET_LANGUAGE (LANGUAGE) : NOVALUE = | 
; § 6990 1 | FUNCTION | 
3 69 1 This routine gets called during processing of the SET LANGUAGE 
3 : 69 ¢ 1! command. It sets up the pointer to the Operator Information Table 
: 8 $327 ; : and Type Conversion Information Table for the language being set. 
5 6851 reat 1 § INPUTS 
; 26 $338 : } LANGUAGE = The Language code for the Language being set 
; See 6958 1 | OUTPUTS 
3 $82? 6959 1! NONE 
: oaee $961 2 BEGIN | 
: 6858 696 | 
Py 4 ase on e@ Language, and set the own variable N ABLE a | 
; 6861 6965 ' CVTINFO_TABLE te asta to the Gperater Infornation Table and type 
: ere) $268 Conversion Table for that language. 
3 6864 6968 CASE ; LANGUAGE FROM DBGSK_MIN_LANGUAGE TO DBGSK_MAX_LANGUAGE OF | 
: 6866 6970 DBGSK_ADA]: | 
3 686 6971 ~ BEGIN 
3 6868 697 OPINFO_TABLE = ADA_OPINFO_TABLE; 
; 6869 6373 EVTINFO_TABLE = ADA_CVTINFO_TABLE; 
> 6871 6975 ; 
aR gn tones nase 
3 6874 6978 OPINFO_TABLE = BASIC_OPINFO_TABLE; 
; 6875 6979 CVTINFO_TABLE = BASIC_CVTINFO_TABLE; 
: $877 698) cost te tal | 
: 6879 698 "BEGIN. 
3 6880 6984 OPINFO_TABLE = BLISS_OPINFO TABLE; 
; ere 6385 CVTINFO_TABLE = BLISS_CVTINFO_TABLE; 
; ret 698 | 
: ones 344 CDBG$K_C): 
> 6886 6990 OPINFO_TABLE = C_OPINFO TABLE; 
; 6887 $93) CVTINEO_TABLE = C_CVTINFO_TABLE; 
; ret 5 699 ' 
: oo o08e COO6SK_CO90L 2: 
> 689 6 OPINFO_TABLE = COBOL_OPINFO TABLE; | 
; e588 6397 CVTINFO_TABLE = COBOC_CVTINFO_TABLE; | 
: 6895 6999 . 
; 6896 7000 CDBGSK_FORTRAN]: 
> 6898 700 OPINFO_TABLE = FORTRAN _OPINFO TABLE; 
3 6899 700 CVTINFO_TABLE = FORTRAR_CVTINFO_TABLE; 
3; 6900 7004 END; 
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FSSLILSL INGA SS 


Pp] 


MAP 
IF 


Lo 
fo 


‘ 
; 
1 
CVT_TBL = .CVTINFO_TABLECCVTINFOSL_CVTTBL) 
IF TCVT_TBL NEQ TABLEBASE THEN CVT~TBL_SI2Z 


ifobeoe19Be 90:52:25 yan! aties- 


CDBGSK_MACRO): 


N 
OPINFO_TABLE = MACRO_OPINFO_TABLE; 
EVTINFO_TABLE = MACRO_CVTINFO_TABLE; 


CDBGSK PASCAL): 

OPINFO_TABLE = PASCAL_OPINFO_TABLE; 

EVTINFO_TABLE = PASCAC_CVTINFO_TABLE; 
CDBGSK_PLIJ: 

BEGIN 

OPINFO_TABLE = PLI_OPINFO TABLE; 

CVTINFO_TABLE = PLI_CVTINFO_TABLE; 
CDOBGSK_RPG): 

BEGIN 

OPINFO_TABLE = RPG_OPINFO_TABLE; 

EVTINFO_TABLE = RPG_CVTINFO_TABLE; 
CDBGSK_UNKNOWN) : 

BEGIN 


OPINFO_TABLE = UNKNOWN OPINFO_ TABLE; 
CVTINEO_ TABLE = UNKNOWN _CVTINFO_TABLE; 


CINRANGE): 

$DBG_ERROR (*DBGEVALOP\DBGSEVALOP_SET_LANGUAGE '); 
COUTRANGE): 

BEGIN 

OPINFO_ TABLE = UNKNOWN OPINFO TABLE; 

CVTINEO_TABLE = UNKNOWN_CVTINFO_TABLE; 
TES; 
ad in Type rg Table from Type Conversion Information Table 
r the current language. 


TBL = .CVTINFO_ TABLECCVTINFOSL_MAPTBL] + TABLEBASE; 


TMAP_TBL NEQ TABLEBASE THEN MAPTTBL_SIZE = .(.MAP_TBL = 4) © 2; 


oad in Type Conversion Table from Type Conversion Information Table 
° 


r the current language. 
+ TABLEBASE; 
= .(.CVT 


E 
F _TaL = 4) * 1; 


Raa TT RELY BARRE CASEI 


vee al Bree 198e 21:54:56 — Eotauc. Ske Socevacoe-43, 1 Page Oy 
: $308 , § ; Set up the conversion rounding flag. 

; 6360 f 4 CVT_ROUND_FLAG = .CVTINFO_TABLECCVTINFOSV_ROUND); 

<n er a 


«PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
2s Hf : te f 2? if af 41 26 45 47 $¢ 46 1 5C6C P.ALR: .ASCII \!DBGEVALOP\<92>\DBGSEVALOP_SET_LANGUAGE\ 
SRS 8 GH BE 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


001¢ 90009 -ENTRY DBGSEVALOP_SET_LANGUAGE, Save R2,R3,R4 1 6948 
54 00000000' EF 9E 0000 MOVAB TABLEBASE, ~R4 : | 
53 00000000" EF 9E 00009 MOVAB CVTINFO TABLE, R3 : | 
OA 00 04 AC CF 90010 CASEL LANGUAGE, #0, #10 : 6968. 
004¢ 00 : 00 0066 00015 1$: WORD $ ae ; 
003F 007 0080 002 0001D $-1$.- : 
009A 0019 08D 00025 48-18, F 
$e-187- : 
10$-1$,- ; 
9$-1 3 . S o 
5$-1$.- : 
Liss}6.- ; 
138-18 F 
0081 31 0028 BRW 13$ > 7041 
10 A 0430 C4 9E O002E 28: MOVAB ADA_OPINFO_TABLE, OPINFO_TABLE : 697 
6 04 At 5 90 MOVAB ADA “CVTINFO_TABLE, CVTINFO_TABLE 6973 
10 A Opsc Ch OSE $09 A 38: MOVAB BASIC_OPINFO_TABLE OP INFO TABLE : $398 
6 0870 c 5 90040 HOVAB BASIC= CVTINFO_TABLE, CVTINFO_TABLE F 6979 
10 A 1360 C4 9€ 90047 4$ MOVAB BLISS_OPINFO_TABLE, OPINFO TABLE > 6984 
6 11A4 c4 3 D MOVAB BL {SSICVTINE FO_TABLE, CVTINFO_TABLE : 6985 
10 A 1cFB C4 (9 Bose 5$ MOVAB (C_OPINFO_TABLE, OPINFO_TABLE : 6990 
6 1820 ca 1 9 3A MOVAB EVTINFO_TABLE, CVTINFO_TABLE : 6991 
10 A 3A8 te oe ai 6$ ROVAB ba _OPINFO_TABLE, OPINFO_TABLE : $398 
fb ayy ¢4 H 0 67 MOVAB £0 OL“CVTINFO_TABLE, CVTINFO_TABLE : 6997 
10 A 4 9 7$ MOVAB FORTRAN_OPINFO_TABLE, OPINFO_TABLE : 700 
. 6 a ch $e ° th ROVAB FORTRAN_CVTI INFO_TABLE, CVTINFO_TABLE ; 7008 
10 A 3414 C4 ge zB 8s MOVAB MACRO_OPINFO_TABLE, OPINFO_TABLE > 7008 
6 1D4 £4 9 i MOVAB MACRO-~CVTINFO_TABLE, CVTINFO_TABLE F 7009 
10 A3 3010 C4 (9€ 9$ MOVAB PASCAL_OPINFO_TABLE, OPINFO_TABLE > 7014 


10 
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Vv = a LE, CV . L g 
63 385¢ ‘ ? 0 HOVAB PA CAL_CVTINFO_TABLE, CVTINFO_TABLE 7015 
10 A 4778 (4 9 p 95 10$ MOVAB PLI_OPINFO_TABLE, OPINFO_TABLE ; ; 5 
6 4194 ce ? } MOVAB PL “CVTINFO_TABLE, CVTINFO_TABLE : 7 1 
10 a3 4054 C4 QE OO00A2 11$:  MOVAB RPG_OPINFO_TABLE, OPINFO_TABLE : 7036 
6 4888 c4 H MB os ROVAB RPG_CVTINFO_TABLE, CVTINFO_ TABLE : 70 i 
10 A 634 C4 3 AF 188: MOVAB UNKNOWN_OPINFO_TABLE, OPINFO_TABLE : 1032 
194 ¢4 : BS MOVAB UNKNOWN"CVTINFO_TABLE, CVTINFO_TABLE + 703 
p BA 14$ MOVL  CVTINFO TABLE, R2 + 7051 
64 F 00 MOVAB TABLEBASE, R ; 
04 a3 - C C ADDLS (R2), RO, MAP_TBL : 
0 06 =A pO 6 ¢ MOVL MAP_fBL, R : 7052 
1 4 9€ 000C9 MOVAB TABLCEBASE, R1 : 
1 0 D1 0 aa CMPL RO, RI ; 
6 13 CF BEQL Ss : 
08 a3 FC AO 1 78 00001 ASHL #1, =4(RO), MAP_TBL_SIZE ; 
50 64 9€ 00007 15$: MOVAB TABLEBASE RO F 
FB AS 04 B24 3 OODA MOVAB @4(R2)CROJ, CVT_TBL : 
50 F8 AS DO OO0EO MOVL  CVT_TBL, RO : 
31 64 9€ O00E4 MOVAB TABLCEBASE, R1 ; 
1 Q D1 OO0E7 CMPL RO, RI : 
05 13 OOOEA BEQL 3=s«é16 : 
FC AB FC AO D0 QOOEC MOVL -4(RO), CVT_TBL_SIZE : 
FAS 08 A2 01 00 EF OOOF1 16$: EXTZvV #0, #1, 8(R2), CVT_ROUND_FLAG 3 7064 
4 000F8 RET : 7067 


; Routine Size: 249 bytes, Routine Base: DBGSCODE + 0A88 
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VOL B-8ep-198¢ 21:54:52 — Epeeuc. SRCSDBGEVALOP.639; 1 ache 
$ $967 4 } GLOBAL ROUTINE DBGSEVAL_LANG_OPERATOR (OPERATOR, LEFT_ARG, RIGHT_ARG) = 
3 £308 7 Y 1 ! FUNCTION 
3 244 f i ! } This routine does the evaluation of a Language expression operator. 
3; 6970 7 4 1! It determines the operand type or types, tt determines what type 
3; 6971 rete 1! conversions must be done on the operands (if ony. it calls the 
3; 697 7075 1! type conversion routines to do whatever conversions are needed, it selects 
3; 697 7076 1! the actual routine to do the oper et ton based on the final operand data 
3; 6974 7077 1! types. and it calls the DBGSPERFORM_OPERATOR routine to actually perform 
: $37? rere ; : the selected operation. 
3; 697 7080 1! This routine uses the Operator Routine Table for pais operator to 
3; 6978 7081 1! determine which actual routine will do the operation on operands of 
3; 6979 70 § 1! the given data types. If a routine is not found to handle the operation 
; 6980 70 1! on the given types, then the Type Hierarchy Table 
3; 6981 7084 1! is consulted to determine what type conversions 
3; 698 7085 1! eer have to be done. If type conversions need to be done, 
3; 698 7086 1! DBGSTYPE_CONV is called to actually do the conversions. 
: 69 7087 1! DBGSPERFORM_OPERATOR is then called with an index specifying the desired 
3 O98? 4 : : operator routine--that is where the actual operation is finally done. 
3; 698 7 1! The routine result Value Descriptor is then returned as the value 
; 6988 7091 : of the DBGSEVAL_LANG_OPERATOR call. 
$ 7095 1! A Primary Descriptor may be returned as the routine value as well, 
: yaad r03e : } if the computation involved is address-valued operands as in C. 
3; 699 Aa] 1 ! INPUTS 
3 7097 1! OPERATOR - A pointer to the Operator Lexical Token Entry for the 
3; 6995 7098 1! operator to be evaluated. 
3 6996 7099 1! 
3 6997 7100 1! LEFT_ARG - A pointer to the left argument Descriptor. 
3; 6998 7101 1! If the operator 
3; 6999 ah 1! is a unary operator, LEFT_ARG points to the operator's one 
3; 7000 7105 1! argument. 
3; 7001 7106 1! 
; 700 7105 1! RIGHT_ARG - A pesncee to the right argument Descriptor. 
3; 700 rie 1! If the operator 
3; 7004 7107 1! is a unary operator, RIGHT_ARG must be zero. 
3; 7005 rie 1! 
3 7006 71 1 ! OUTPUTS 
3; 7007 7110 1! A pointer to the Value Descriptor which results from the evaluation of 
3; 7008 7111 «1: the operator is returned as this routine's result. Or, 
3; 7009 rig 1! A pointer to the Primary Descritpor. 
3; 7010 7115 «1! 
3 7011 7114 «1 
3 ole 7115 BEGIN 
3; 701 116 
3; 7014 711 
3; 7015 og OPERATOR: REF TOKENSENTRY, ' Token Entry for operator to perform 
3 mis 711 LEFT_ARG: REF DBGSVALDESC ' Left operand Token Entry 
; 701 4 9 RIGHT_ARG: REF DBGSVALDESC; i Right operand Token Entry 
3 yO19 71 § LOCAL 
; 7020 71 HIER_TBL: REF VECTOR C,WORD], ! Pointer to a Type wiorerchy Table 
3 7021 7124 HIER_TBL_SIZE, ! Number of entries in HIER_TBL 


|] 
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vive mH aer 1 90:32:32 DEBUG. SRC IDBGEVALOP.83 31 . 399 
: 7 ¢ 7125 INCOMP_TBL: REF VECTOR C,WORDJ, ! Pointer fo a Type jncempec Soft ity Table 
Ba 71 § INCOMP_TBL_SIZE ! Number of entries in INCOMP_TBL 
: 7024 71 ROUT_TBL: REF ORTSTABLE, ! Pointer to an Operator Routine Table 
3; 7025 71 : ROUT_TBL_S1Z ! Number of entrie in ROUT_TBL 
: 7 6 71 BINARY_FCAG: BYTE, i A flag set to TRUE for binary operators | 
sf 71350 DIGITS, ! The number of digits for packed decimal 
; 7028 7131 LEFT_TYPE, ! Dtype for original left operand type 
3; 7029 71 § LENGTH, ! Length of the data 
; 70 71 MAP_TBL_ENTRY: TYPE_GRAPHSENTRY,! An entry in the Type Mapping Table | 
; 7031 71 NEW"LEFT_ARG: REF DBGSVALDESC, ! Pointer to Left argument Token Entry | 
; 70 ¢ 71355 ’ after type conversion if needed 
sr 71 NEW_LEFT_TYPE, : Dtype for converted left operand type 
ee 71 NEWCRIGHT_ARG: REF DBGSVALDESC, ! Pointer to right argument Token Entry 
3; 7035 71 : ‘ after type conversion if needed 
; 70 71 NEW _RIGHT_TYPE, : Dtype for converted right operand type 
; 70 7140 PCODE ! Operator code for current operator 
: 70 7141 SD_CLASS_FLAG ! Flag to indicate SD class overrides 
; 7039 ary RESULT: REF D&GSVALDESC, i Pointer to result value descriptor 
3; 7040 714 RESULT_TYPE, ! Dtype of result of operation 
: 7041 7144 RIGHT TYPE, ! Dtype for original right operand type 
3; 704 7145 ROUT_TBL_INDEX, ! Index into Operator Routine Table | 
: 704 ri4e ROUT_INDEX, ! Routine CASE index for code that does 
3; 7044 714 : operation on operand types | 
3; 7045 7148 SYMID: REF RSTSENTRY, ! Symid in primary descriptor 
; 704 7149 T » ! Pointer to a typeid 
3; 704 7150 TYPEID_INDEX, ! Routine CASE index for code that does 
; 7048 7151 } typeid check 
3; 7049 o136 TYPES: TYPESPAIR; ! Type indecies for original operand 
3; 7050 715 : types in Type Conv Table format 
2) te | 
: 705 £128 ! Trap out one special case. If the incoming token is Unary minus or 
3: 7054 715 ! Unary plus, and the unconverted bit is on, We know we have a 
; 7055 r138 : constant, say like -1. We do not want to turn this -1 into negative 
: 7056 715 ! integer right away, for those languajes have packed decimal we are 
3; 7057 7160 ! not sure at this point we have an integer or packed decimal number. 
3; 7058 7161 ! We make this decision at the evaluation time or depositting time. 
3 Ait 4 r1e¢ So if we have one of this token, we mark it, then simply returns. 
: 7061 7164 IF .OPERATORCTOKENSW_CODE) EQL TOKENSK_UNARY_PLUS OR | 
; re g108 -OPERATORCTOKENSW_CODE] EQL TOKENSK_UNARY_MINUS 
; | 
3 7064 aie? BEGIN 
3 Foss 2168 IF, ,LEFT_ARGLDBGSV_DHDR_UNCVT] 

3; 706 7170 4 BEGIN 

. ee 
3 Ata! r178 ? : In this case, there should not be any right argument. 
3 : 
; ane ate ? IF .RIGHT_ARG NEQ 0 

3 re a ? $DBG_ERROR( *DBGEVALOP\DBGSEVAL_LANG_OPERATOR, inconsistency 1°); 
> 707 7179 4 

3 OF 130 4 ! In this case, the left arg. should not be primary or volatile 

3; 7078 7181 4 ! value descriptor. 
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79 1 
1 ir (.LEFT_ARGCDBGSB_DHDR -]ye pau DBGSK_PRIMARY_DESC) OR 
: (CLEFT “ARGLDBGS$B_DHDR-TYPE] EQL DBGSK-V_VALUE_DESC) 
! $DBG_ERROR( 'DBGEVALOP\DBGSEVAL_LANG_OPERATOR, inconsistency 2"); 
5 1 
7 1 ! Mark the sign ond return. Check to see if it is already marked, 
7 1 ' if it is, f = the sign, for we may have -(-1) case, this is 
rose ; : the same as 
FoR if ,OPERATORLTOKENSW_CODE3 EQL TOKENSK_UNARY_MINUS 
7 1 BEGIN 
7098 : i LEFT ARGCOBGSY_VALUE_SIGN_CODEJ EQL TOKENSK_NEGCONST 
7095 } ' LEFT_ARGCOBGS$W_VALUE_SIGN_CODE] = TOKENSK_POSCONST 
097 . LEFT_ARGCDBG$W_VALUE_SIGN_CODE] = TOKENSK_NEGCONST; 
099 
00 ELSE 
0g IF .OPERATORCTOKENSW_CODE] EQL TOKENSK_UNARY_PLUS 
0 BEGI 


N 
IF_ .LEFT_ARGCOBGSW_VALUE_SIGN_CODE] EQL TOKENSK_NEGCONST 
LEFT_ARGCDBGSW_VALUE_SIGN_CODE] = TOKENSK_NEGCONST 


ELS 
> LEFT_ARGCDOBGS$W_VALUE_SIGN_CODE] = TOKENSK_POSCONST; 


ELSE 
$DBG_ERROR(*DBGEVALOP\DBGSEVAL_LANG_OPERATOR, inconsistency 3°); 
RETURN .LEFT_ARG; 
END; 
END; 


at ot ot ot I I IOOOOVOO 
SUSU RONUS Seno hun —OSeuenr 


This is called from DBGSEVAL_LANG_OPEARTOR with TOKENSK MEGCONST or 
TOKENSK_POSCONST token, replaced Tt to TOKENSK_NEG_SIGN 
TOKENSK_POS_SIGN, so the normal unary minus or unary plus * seretten 
can take place. 


' 
i 
i 
i 
i 
If OPERATOR TOKENSU._CODE] EQL TOKENSK_NEGCONST 
OPERATOR = DBGSGL_NEG_SIGN_TOKEN; 
c gOPERATORCTOKENSU_CODE3 EQL TOKENSK_*USCONST 


OPERATOR = DBGS$GL_POS_SIGN_TOKEN; 


wr 


: Initialize table pointers and flags. 
MAX_DEPTH = 1; 
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5 : q 4 HF gitttSS BITSELECT ION FLAGT 
: } 2 geet tSS_BITSELECTION FLAGE = TRUE 
3; 7140 4 BLISS BITSELECT ION FLAG2 = FALSE; 
3 7141 4 BLISS BITSELEC ON_FLAG1 = FALSE; 
3 aby 7245 BLISS-INDIRECTION_FLAG = FALSE; 
3; 714 7 8 OPCODE = .OPERATORCTOKENSW CODE); 
3 71646 724 DBGSGL_OPCODE_NAME = OPERATORCTOKENSB_OPLENJ; 
3; 71465 724 I Y FLAG = .OPERATORLTOKENSB_KIND) EQL TOKENSK ee OP; 
3 rise 724 OUT TEL = .OPINFO TABLEC.OPCODE, OPINFOSL_ROUTTBC) + TABLEBASE; 
: 4584 f ; JF Rout TeL EQL TABLEBA 
: 71469 7 BEGIN 
3; 7150 7 Q IF .OPCODE NEQ TOKENSK DEPOSIT AND .OPCODE NEQ TOKENSK_CONVERT 
; at f 23 > tae NEQ TOKENSR_IDENTITY 
3 7158 g 28 on SDBG_ERROR ('DBGEVALOP\DBGSEVAL_LANG_OPERATOR routine table missing’); 
: 7155 7258 ELS 
3 o128 7259 ROUT_TBL_SIZE = <-Oput TBL = 4) / 2; 
3; 715 7260 HIER_TBL”= .OPINFO_TABLEL.OPCODE, OPINFOSL_HIERTBLI + TABLEBASE; 
$ 138 i 6 IF eg ricr_Tet NEQ TABLEBASE 
> 7160 726 BEGIN 
: 7161 7264 HIER_TBL_SIZE = .(.HIER_TBL = 4) * 2; 
: i6¢ , 65 MAX BEPTR = .MAX_DEPTH * .HIER_TBL_SIZE * 2; 
3; 7164 7 r$ INCOMP TBL = ,OPINFO_TABLEC.OPCODE, OPINFOSL_INCOMPTBL] + TABLEBASE; 
3 oie? 4 re IF .INCOMP_TBL NEQ TABLEBASE THEN INCOMP_TBL~SIZE = .(.INCOMP_TBL - 4) * 2; 
: 7167 7270 
3; 7168 7271 ! Convert pe saery Seoursgeery or volatile value descriptors 
3; 7169 7 LE: ! to value descriptors. Something should be done to 
3; 7170 727 !' clean up the structure of the code below. The basic idea of what 
3; 7171 7274 ! it is doing is: 
; ates 7275 ! If we get : fr jnery for "X"’, say, or a volatile value descriptor for 
3: 717 7 16 ! address ‘'200°' in the user prograge then: 
3 71746 727 ! = If the kanquage does an implicit fetch on operands (i.e., all benaue es 
> 7175 7 28 i except BLISS and MACRO), then we do the fetch here by calling PRIA_TO_VAL. 
3; 7176 727 ! = For BLISS and MACRO we call PRIM_TO_ADDR in order to get the address 
3: 7177 7 + ! of the operand into a value descriptor. 
3; 7178 7281 ! = Special case for arrays in C. 
3; 7179 7 Hy !- Special case er records in COBOL. 
; Ay! g : (It’s these special cases that make the code such a mess.) 
3 oiss 7285 IF (.LEFT_ARGCDBGSB_DHDR_TYPE] EQL DBGSK_PRIMARY_DESC) OR 
3 4 4 ; gy eh Tans DBGSB_DHDR_TYPE] EQL DBGSK_V_VALUE_DESC) 
> 7185 7 
3 71 7 83 ! Most operators in most Lenqueges do an implicit fetch on primaries. 
: ay tf 7 ' 52 n FOR if we say EV X we want to fetch the value at X. 
3 71 7291 ! DB $PRIM_TO_VAL is the routine that converts primaries to value 
3 r18S 7 3 : Geecr interes. and Coes the fetch in the process. 
; 71 729 : The exceptions are: in BLISS, we only do the fetch when we see 
3 ! the fetch operator (.). Also, for the “address of'’ operator 
7191 7294 ' the f (.). Al f he “‘add f 
3; 7192 7295 ! (8 in C), we want to suppress this fetch. For these cases, 
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@ | a routine Spesra ih Ty foer which converts a primar 
ptor to a value descriptor containing the address of the 


primary. 


F 
HE 


! We consult a flag in the Operator Information Table that tells 
' us whether or not to do this 


fetch. 
zOP INFO TABLE C.OPCODE, OPINFOSV_FETCH) 


BEGIN 

BLISS_INDIRECTION_FLAG = TRUE; 

! Special case for arrays in C. We want to treat un-subscripted 
' arrays as pointers, and be able to add, subtract, and do 
dereferencing on the addresses. 


iF (.DBG$GB_LANGUAGE EQL DBGSK_C) 
AND (LEFT _ARGLDBGSB_DHOR_F CODE EQL RSTSK_TYPE_ARRAY) 


BEGIN 
: Save the typeid. 
TYPEID = .LEFT_ARGCOBGSL_DHDR_TYPEID); 
Build a descriptor with the address of the array. 
IF NOT DBGSPRIM_TO_ADDR(.LEFT_ARG, DSCSK_DTYPE_L, LEFT_ARG) 
$DBG_ERROR("DBGEVALOP\DBGEVAL_LANG_OPERATOR, prim to addr failed"); 
Dummy in the FCODE as TPTR. Also fill in the typeid. 
LEFT_ARGCDBG$B_DHDR_FCODE] = RSTSK_TYPE_TPTR; 
EEC T ARS DBGSL_DHDR_TYPEID] = .TYPEID; 
ELSE 
BEGIN 
! If we have an aggregate, first po | calling the 
' routine that turns a 1-dimensional array of characters 
} into a string. 
iF .LEFT_ARGCOBGSV_DHDR_AGGR) 
DBGSCOLLECT(.LEFT_ARG); 
! If we still have an aggregate, we check for the special 
i case of COBOL records. For all other cases, we eignat 
! an error, because operations on aggregates are no 
; supported. 
SYMID = 0; 
LF x LEFT_ARGLDBGSV_DHOR_AGGRI 
BEGIN 
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-Sep-1 DEBUG. SRC JDBGEVALOP.B32;1 
9 4 gtEFTARGCOBGSB_OHDR_F CODE NEQ RSTSK_TYPE_RECORD 
§ SIGNAL (DBG$_NOVALUE) ; 


H This is record aggregate, if the language code is cobol, treated as text string. 


SYMID = .LEFT_ARGCOBGSL_DHDR_SYMIDOJ; 

IF .SYMI FQ 0 THEN SIGNAL (DBGS NOVALUE); 
: RSTSB_KIND 
I 


ODONOUE 


w 


WHILE MID NEQ RSTSK_MODULE DO 


BE 
SY = .SYMIDERSTSL_UPSCOPEPTRI; 
ie: YMID EQL 0 THEN SIGNAL (DBG$_NOVALUE) ; 


IF ,SVMIDCRSTSB_LANGUAGE] NEQ DBG$K_COBOL 
a SIGNAL (DBG$_NOVALUE) ; 


D 
Y 
N 
D 
s 


IF NOT DBGSPRIM_TO_VAL(.LEFT_ARG, DBGSK_VALUE_DESC, LEFT_ARG) 
$DBG_ERROR('DBGEVALOP\DBGSEVAL_LANG_OPERATOR, prim to val failed’); 


ELSE 
iA NOT DBGSPRIM_TO_ADDR(.LEFT_ARG, DSCSK_DTYPE_L, LEFT_ARG) 


$DBG_ERROR( "DBGEVALOP\DBGEVAL_LANG_OPERATOR, prim to addr failed"); 
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: If this is a binary operator, do the same for the right operand. 
if .BINARY_FLAG 
IF (.RIGHT_ARGCDBGSB_DHDOR_TYPE] EQL DBGSK_PRIMARY_DESC) OR 
((. RIGHT _ARGCDBGSB _DHOR TYPE] EQL DBGSR_V_VALUE_DESC) AND 
(.OPCODE NEQ TOKENSK_DEPOSIT) AND (.OPCOBE NEQ™ TOKENSK_CONVERT) ) 


FOP are_TAGLE C.OPCODE, OPINFOSV_FETCH) 


QeaRe 


A 
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BEGIN 
BLISS_INDIRECTION_FLAG = TRUE; 
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! Special case for arrays in C. We want to treat un-subscripted 
: arrays as geintors, ang be able to add, subtract, and do 


a i i | 


RR NNR ARR RRR IN RI 
© ODOO00 0M 


95 
399 
t+ } dereferencing on the addresses. 
60 iF (.DBG$GB_LANGUAGE EQL DBGSK o AND 
7408 (RIGHT ARGLDBGSB_DHOR_F CODE EQL RSTSK_TYPE_ARRAY) 
Fabs BEGIN 
74 ' Save the typeid. 
0s 7408 [ae eee 
74 TYPEID = .RIGHT_ARGCOBGS$L_DHDR_TYPEID); 


eee _ ed 


N 10 , aor a 
$$ep-198e 21:54:8¢ — EOtauG. Sac SoBcevALor 39; 1 Page St 


; i 4 ¢ ! Build a descriptor with the address of the array. 

r4 i 

; f 1 ay d if NOT DBGSPRIM_TO_ADDR(.RIGHT_ARG, DSCSK_DTYPE_L, RIGHT_ARG) 

; y 1 t18 ¢ SDBG_ERROR('DBGEVALOP\DBGEVAL_LANG_OPERATOR, prim to addr failed’); 
; i 16 rei? 4 Dummy in the FCODE as TPTR. Also fill in the typeid. 

: Fa 5 $B_DHDR_FCODE]_= RSTSK_TYPE_TPTR; 

: O3i$ fis d RIGHT-ARGEDBGSE“DHDRITYPEIDI =” TYPEID. 

: Fag 7482 ; ao 

; 7% ELSE 

: b35) 7404 BEGIN 

: $358 rsa wen 

; . first try calling the 

: Fase in, ; t Sout an thal colin ft elation array of characters 

; é 7429 4 into a string. 

; ij 8 ve : t if jRIGHT_ARGLDBGSV_DHDR_AGGR] 

if pias THEN BGSCOLLECT(.RIGHT_ARG) ; 

; F333 piss egate, we check for the special 

if § re 3 é isan al thie ecm all other cases, we Signal 

if 7437 & i an error, because operations on aggregates are no 

: , 5 7438 4 supported. 

sf ort aa SYMID = 0; 

: 7 7441 4 IF RIGHT _ARGLDBGSV_DHDR_AGGRI 

: 7339 7442 4 H 

/ ; vite 2 TF RIGHT ARGLDBGSB_DHDR_F CODE? NEQ RSTSK_TYPE_RECORD 

; ; ¢ tte 2 SIGNAL (DBG$_NOVALUE); 

+ 7344 7447 5 

; tring. 
; 7348 74a ; : This is record aggregate, if the aie code is cobol, treated as text string 
; : ; RGCOBG$L_DHDR_SYMIDO); 

: oe ria) ; ire vmio ea. MTHEN SLGRAL (OBGS NOVALUE); 

; : 30 aes WHILE _SumiDERST$B_ KIND NEQ RSTSK_MODULE DO 

if yize 8 eeaID RSTSL_UPSCOPEPTRI; 

: baeg ree 8 Tee yMIb EOL 0 THEN"STeMAL (pBC$ NOVALUED ; 

; , 2 ries IF _SYMEDCRSTSB_LANGUAGE) NEQ DBGSK_COBOL 

; ; 38 286 np, SIGNAL (BGS NOVALUE) 

; 7358 7461 4 ND; 

: y 38 rie t IF NOT DBGSPRIM_TO_VAL(.RIGHT_ARG, DBGSK_VALUE_DESC, RIGHT_ARG) 

; a. 
: ; ; rags 4 $DBG_ERROR("DBGEVALOP\DBGSEVAL_LANG_OPERATOR, prim to val failed 
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END; 
END 


LSE 
IF NOT DBGSPRIM_TO_ADDR(.RIGHT_ARG, DSCSK_DTYPE_L, RIGHT_ARG) 
$DBG_ERROR("DBGEVALOP\DBGEVAL_LANG_OPERATOR, prim to addr failed"); 


Take care of DEP rfa data type = constant case. 
iF .OPCODE EQL TOKENSK_DEPOSIT 
THEN 
BEGIN 
IF .LEFT_ARGCDBGS$V_DHDR_UNCVT] 
THEN 
BEGIN 
Oe eat ARGCDBG$B_DHDR_FCODE] EQL RSTSK_TYPE_RFA 
BEGIN 
LEFT -ARGCDBGSL DHDR_TYPEID) = .RIGHT -ARGCDBGSL _ DHDR_TYPEIDI; 
Let. ARG = DBGSCONV- TRFA_VALUE(.LEFT “ARG); 
END; 
END; 
! At this point we should have value descriptors. Perform special 
: NRO Data type map check for RPG. 
if .DBG$GB_LANGUAGE EQL DBG$K_RPG 
THEN 


BEGIN 
IF -LEFT_ARGCDBGSB_VALUE_DTYPE] EQL DSCSK_DTYPE_NRO 

LEFT_ARG = MAP_NRO_DTYPE_IN_RPG(.LEFT_ARG); 
IF .BINARY_FLAG 
THEN cin 

IF (.OPCODE NEQ TOKENSK_DEPOSIT AND 

yrOPCODE NEQ TOKENSK~ CONVERT) 
IF_.RIGHT_ARGCOBG$B_VALUE_DTYPE] EQL DSCSK_DTYPE_NRO 
RIGHT_ARG = MAP_NRO_DTYPE_IN_RPG(.RIGHT_ARG); 


END; 
END; 


Take care of the (J) (empty set). 
it ttrT oe DBG$B_DHDR_LANG) EQL %X°FF* AND 
GCDBGS$B-VALUE_CLASS) EQL %X‘FF" AND 
TERT “ARG DBG$B-VALUE-DTYPE] EQL 2x'FF' 


LEFT_ARG = FIXUP_EMPTY_SET(.LEFT_ARG, .RIGHT_ARG); 
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3; 7421 7524 If .BINARY_FLAG 

3; 74 ¢ 7525 THEN 

3; 74 7 § IF .RIGHT_ARGCDBGSB_DHDR_LANG] EQL %X'FF* AND 

: 7424 7 «RIGHT_ARGCDBGS$B_VALUE_CLASS) EQL %xX'FF' AND 

: ee 5 8 gRIGHT. “ARGLDBG$B_VALUE_DTYPE) EQL %Xx'FF* 

: iS ; "3 , RIGHT_ARG = FIXUP_EMPTY_SET(.RIGHT_ARG, .LEFT_ARG); 
5 7429 7 : 

3; 74 7 ! Perform ‘type mapping’’. Do not map Left-hand-side of deposit when 
$ . 1 73 : override applied. " . : 

3; 74 fe $ DBG$DO AA Hy + eta sama 

3; 74 75 IF .BINARY_FLAG 

3 7435 7538 N 

3 74 7539 IF (. oP cone NEQ TOKENSK_DEPOSIT) 0 

3; 7437 7540 (NOT .RIGHT_ARG CDBGSV_DHDR OVERRIDE) 

; 7438 7541 HEN 

; P266 DBGSDO_MAPPING( .RIGHT_ARG) ; 

3 7544 

3 £36? } Get a Type for the left operand. 

; 7547 ‘ert TYPE = DBGSGET ore ne LEFT_ARG); 

; 7548 NEW_CEFT_TYPE = .LEFT_T 

: 7549 

; 7550 

3 P33) Get a Type for the right operand. 

; fae IF .BINARY_FLAG THEN 

3 7554 BEG 

3 7555 RIGHT_TYPE = DBGSGET pivee (.RIGHT_ARG); 

3 7556 we RIGHT_TYPE = .RIGHT_TYPE; 

; 7557 END 

; 7558 

5 7559 ! Unary operator. 

; 7560 ! 

3 7561 

3 £206 BEGIN 

; 756 RIGHT_TYPE = 0; 

; 7564 NEW_RIGHT_TYPE = 0; 

3 7565 END; 

: 369 

3 7568 ! If we are processing the identity operator, then just return 
3 44 ! the left argument here. Before we return, check to see if any 
3 7570 ! unconverted is left undone. Make sure we take care of the 
3 30) ! unary minus/unary plus case that was returned from earlier 
3 7 1 ' call. (Note: if you EV -1, -1 was not converted the first 
3 757 ! time around, now we are hit by this token$k_identity and 

; Pere ; unconverted constant). 

; £276 iF .OPCODE EQL TOKENSK_IDENTITY 

: oe? THE 

: 7 A BEGIN 

; 757 IF .LEFT_ARGCDBG$V_DHDR_UNCVT) 

: 7580 THEN 


D 11 
16-Sep-1984 00:32:25 AX-11 Bliss-32 V4.0-74 Page 208 

82360-1882 99:82:32 HONeuG. Sacloecevacoe.o4351 9 $1) 

5 ie r 1 LEFT_ARG = DBGSCONV_TEXT_VALUE(.LEFT_ARG, .LEFT_ARG, 0); 

3; 74 7 i RETURN .LEFT_ARG; 

3; 7481 7584 END; 

: peRs reRe 

3 74 7 e? ! Consult the Type Hierarchy Table to see if any data type conversions need 

; oy 5 i 4 H to be done. 

3; 74 7590 ! There are basically three cases here. ry all use the hierarchy table, 

; 7488 7591 ! but in different ways. The FIND_PATH and FIND_JOIN routines also 

3 594 f 35 } use the Operator Routine Table. 

3; 7491 7594 ! 1. Binary operators, such as +, which may do implicit conversions on 

3; 749 7595 i their operands. Here we call the FIND_JOIN routine. This routine assumes 

; 749 L208 ! we are trying to convert both left and or operand to the same type. 

> 7494 759 ! It finds a type that both can be converted to and which is legal for 

3; 7495 7598 ! the given operator. If there are several such types, it chooses the 

$ rie 1288 one with the shortest conversion path. 

3; 7498 7601 ! 2. Unary operators. Here we call the FIND_PATH routine. This tries 

3; 7499 760 ! to find a type that the operand can be converted to which is legal 

; 7500 760 ! for the given operator. If there are several, it chooses the one 

: rept pepe with the shortest conversion path. 

; 750 7606 ! 3. The ASSIGNMENT operator and the CONVERT operator. Here we know 

3 73 7607 ! the carpet type, and we are just trying to determine if there is 

3; 7505 7608 ! a path from the source type. We use the routine FIND_PATH_DEPOSIT 

3 7206 7609 ! to determine this. 

3; 750 7610 } 

3; 7508 761 If .BINARY_FLAG 

13 7509 761 THE 

3; 7510 761 BEGIN 

3; 7511 7614 

3 Pale 7615 

3; 751 7616 ! If an override was present on the DEPOSIT command, e.g., 

3 7514 7617 ! DEPOSIT/FLOAT 1000 = 1.1 

3; 7515 7618 ! then we skip the FIND _PATH_DEPOSIT routine which checks whether 

3; 7516 7619 ! the deposit is Legal Tn thé current Language. We just call 

3; 7517 7620 ! the TYPE_CONV_DEBUG routine directly to do the deposit in a 

3; 7518 7621 ! Language-independent fashion. Also call the routine directly 

3 celP 6 ¢ H for instruction deposits. 

3; 7521 7624 IF .OPCODE EQL TOKENSK_DEPOSIT 

3; 75 § 7625 4 AND (.RIGHT_ARG COBGS$V_DHDR_OVERRIDE) 

: 75 76 6 4 OR (.LEFTTYPE EQL DSC$K_BTYPE_T AND .RIGHT_TYPE EQL DSC$K_DTYPE_Z1)) 

3 Pose 76 3 THE 

3; 7525 7628 4 BEGIN 

3; 7526 7629 4 IF .LEFT_ARGCOBGSV_DHDR_UNCVT) 

3; 7527 7630 4 THEN 

; e : ve 1 ? LEFT_ARG = DBGSCONV_TEXT_VALUE(.LEFT_ARG, .LEFT_ARG, .RIGHT_TYPE); 

3; 7530 reas 4 RETURN DBGSCOVER_DX_DX (.LEFT_ARG, .RIGHT_ARG, .CVT_ROUND_FLAG); 

3; 7531 76 END; 

3 4} § 7635 

37 76 § : 

3; 75 76 !' Check for the special data, FCODE = PICT, DIYPE = T. for DEPOSIT. 
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; 7535 163 ! In Type Hierd. table, this case is catched by DBGSK _DTYPE PICT. 
37 76 ! If both operands are text data, then we want to treat this as 

; f ree ! standard Text String. 

3 7 So IF .OPCODE EQL TOKENSK_DEPOSIT OR 

3; 7540 764 -OPCODE EQL TOKENSK_CONVERT 

; 7541 7644 N 

37 ry | 7645 4 EGIN 

3; 754 rose 4 IF .RIGHT per necse DHDR_FCODE] EQL RSTSK_TYPE_PICT AND 

3 75446 7647 & -LEFT_ARGCDBG$B_JALUE-DTYPE) NEQ DSCSK_DTYPE_T AND 

3 f $2 Lees ; gj OodEB LANGUAGE EQL BBG$K_COBOL 

3:7 <3 7650 4 NEW_RIGHT_TYPE = DBGSK_DTYPE_PICT; 

; rece 7651 END; 

: $886 ees 

3 7331 Ae fF, ,OPCOsE EQL TOKENSK_DEPOSIT OR .OPCODE EQL TOKENSK_CONVERT 

; Faeg 7656 IF FIND_PATH_DEPOSIT (.NEW_LEFT_TYPE, .NEW_RIGHT_TYPE, 0, 

; 7554 7657 -HIER_ TBC, .HIER_TBL_SIZE, 

; 7555 7658 -INCOMP_TOL, .INCOMP-TBL SIZE, 

; 7556 7659 -ROUT_TBL, .ROUT_TBL_SIZE) 

3; 7557 7660 THE 

:; 7558 7661 4 BEGIN 

3; 7559 Pees 4 

; 7560 7665 4 

3; 7561 7664 4 ! Change the dtype for date type PICT, so the LANGUAGE type 
3 7206 £992 : conversion can take place. 

3; 7564 7667 4 IF RIGHT persesee DHDR_FCODE] EQL RSTSK_TYPE_PICT AND 

: 7565 7668 4 -LEFT_ARGCDBG$B_QALUE-DTYPE] NEQ DSCSK_DTYPE_T AND 

3; 7566 7669 4 .DBG$GB_LANGUAGE EQL BBG$K_COBOL 

: 7567 7670 4 THEN 

3; 7568 7671 4 RIGHT_ARGCDOBGSB_VALUE_DTYPE] = DBGSK_DTYPE_PICT; 

3; 7569 7672 4 

; 7570 7673 4 

; eert pore ? H If the target is SD, make the new type to be packed. 

; bang 7676 4 IF (.RIGHT_ARGCDBGS$B_VALUE_CLASS] EQi DSCS$K_CLASS_SD) AND 
: 7574 7677 5 (NOT .RIGHT_ARGCDOBG$V_VALUE_FL_BINSCALEJ) 

3; 7575 7678 4 N 

3 7576 7679 4 NEW_RIGHT_TYPE = DSCSK_DTYPE_P; 

3; 7577 7680 4 

3 £378 7681 4 

3; 757 76 § 4 ! Check for unconverted bit. At this point, Long interger 
3; 7580 76 4 ! string or floating string may be converted to Packed 

3 at , : ? decimal if the new_right_type is a Packed decimal data item. 
3 Fen 76 4 IF .LEFT_ARGCOBGS$V_DHDR_UNCVT) 

: Pose 7 & THEN 

3; 7585 76 3 BEGIN 

3 P286 76 

3; 758 76 

3; 7588 7691 ! This is a special case in COBOL. We can only take the value 
3; 7589 769 ! and deposit it into unsigned var apts; 

3; 7590 769 ' For example: grr goys (SO, WU) = -1234.1234. The value 
3; 7591 7694 ! in C4V4 is 1234.1234. 
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; 7695 

s7 foe ir -DBG$GB_LANGUAGE EQL DBGSK_COBOL OR 

sf ry 769 -DBGSGB"LANGUAGE EQL DBGSK-RPG 

: Fag 1338 ‘oes 

$298 a 

3; 7598 7701 

3 £444 a ¢ Check to see if the target is unsigned data type. 

; 7601 7706 3 IF ep ~ARG DBGSB_VALUE_DTYPE] EQL BSCSK _pTvee. WU OR 
; rene 7705 6 -RIGHT_ARGCDOBGS$B_VALUE_DTYPE) EQL 443 il PE-LU OR 
s 7 77 ° -RIGHT_ARGCOBGS$B_VALUE_DTYPE] EQL peeak BT YPE-QU OR 
; 760 77 -RIGHT_ARGLDBGS$B_VALUE_DTYPE Eat DSCSK-DTYPE-NU 

3; 7605 77 ; § THEN 

3 rene 77 BEGIN 

: 760 7710 7 IF .LEFT ST cessateatons aan EQL TOKENSK_NEGCONST 
3 rene 4a} 7 THEN 

3; 7610 orig CET A ARGCOBG$W_VALUE SIGN_CODE] = TOKENSK_POSCONST: 
3; 7611 7716 SIGNAL (DBGS_ IVALOUTBADS, 7, OPERATORCTOKENSB “OPLEN)); 
3 role 7715 END; 

3; 761 gris 7 

3; 7614 7717 6 END; 

3; 7615 7718 

; 4 | 7719 END; 

3; 761 730 

3; 7618 7721 LEFT_ARG = DBGSCONV_TEXT_VALUE(.LEFT_ARG, .LEFT_ARG, 

> 7619 77 : 5 ;RIGHT_TYPE); 

3; 7620 77 4 END; 

3; 7621 7724 4 

3; 76 g 7725 & 

: 76 7726 4 ! There are cases the intermediate Sore ptpre is needed 

3 7624 7727 & ! before the deposit, for example, D F needs to 

3 7636 a g ; convert to Packed decimal before othe into P. 

3; 76 : 7730 (5 if (t. ro aneloecss VALUE CLASS] EQL DSC$K_CLASS_SD) AND 

3; 7628 7731 4 eRIGHT ARGCOBGSV_VALUE_FL_BINSCA R~ 

: 7629 77 ¢ 4 cRiGHT ARG tnpcse. LUE_DTYPE] EQL DSCS$K -PIVPE _P) OR 

3; 76 77 4 f° RIGHT_ARGCDOBG$B_VALUE_DTYPE] EQL DSCS$K_DTYPE_NU) 0 

3 763 4 : ? . (. RIGHT ARG DBGS$B- “VALUE — _DOTYPE) EQL DBGS$K~ “DTYPE_ PICT) 

3; 76 5 77 $ 4 LEFT_ARG = INTMED_DATA_FOR_DEP(.LEFT_ARG, DSCSK_DTYPE_P, 

3; 76 77 4 FALSE); 

3; 7635 ore 4 

3; 76 77 4 

: 76 7740 4 ' We catch none-constant cases in here, for the ease of checking 
3; 76 7741 & ! sign for different data types. In cobol, we should have 

3; 7639 ores 4 ' the source converted into Packed dec inal at this point. 

3; 7640 7745 «4 ! (in intermediate). 

3: 7641 7744 & ‘ 

3: 764 7745 4 ! This is a special case in COBOL. We can only take the value 
; refi oes ¢ sy en ond + repre genes ny “eure ARO (SD, Ww) The value 

3 ‘ ex e: = e valu 

: 7645 7748 4 i in n Cave ns iasae 1 3° in §C4v4 is -1234. 138 " 

: 7646 7750 4 IF .DBG$GB_LANGUAGE EQL DBGS$K_COBOL OR 

3; 7648 7751 4 -DBG$GB-LANGUAGE EQL DBGSK—RPG 


THEN 


PUPS 


SSNS SIO AAA AAA A OO 


PEERS ESE SEE EEE EE EE EFF PNM NN NAAAAAAAAAAAA AAA AMA MA AA MII 


— eee ee ee ee ee a a a ee eee 


BEGIN 


Check to see if the target is unsigned data type. 


ir (. RIGHT ARG DBGSB_ “VALUER DIVE EQL DSC$K -DTYPE _WU OR 
RIGHT ARG EQL =r 

penta peeee- “VALUE ECDIVEE 
megeet rareppegs VALUE pts EQL DSC 


BEGIN 
LOCAL DIG, SIGN: BYTE, SIGN_POS: REF VECTORC,BYTE); 


ind out the sign position in number string. 


1G = .LEFT -ARGLDBGSY VALUE_LENGTH); 
IGN_POS = cheet ARC BaGSL L_ YALUE _POINTER] 


} Make it into positive. 


S16N = .SIGN_POSCO] AND %xX‘0D'; 
THe EQL~%x'OD' 


SIGN P OSCO) = .SIGN Posto} AND %X'FE 
SIGNAL bBGs. I IVALOUTENDS, MOPERATORC TOKENSB _OPLENJ); 


The following case is done for ve is only. 

if we do DEP sc2v2=999.888, sc2y is (SD, W with “atotts + 4 and 
scaled -2). the answer we wan 99.88, instead of 

However if shore is no digits. speci tied in the Descriptor 

the base digits used is 5 then you'll get -310.xx as an 
answer. 


The following code is a hack to force the ype converter 

to do the ctgnt thing for cobol, for guanpie we deposit 
into a | in eger type. the way we make the %.. convertor to 
do the r ight t hg BS $ to create an intermediate data type of 

( for Left hand side as yell. so the path Looks ke: 
stoke’ coal side converts (SD, P), creates a (SD, 4 feet e rotor 
for left hand side performs. convers| on from righ 4 (SD, 

left (SD, P), final converts right (SD, P) to right Seed stan. 


F .DBGS$GB_LANGUAGE EQL DBGSK_COBOL OR 
nine LANGUAGE EQL DBGSK"RPG 
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BEGIN 
PEF eon ~ARGCOBGSB_VALUE CLASS] EQL DSCS$K_CLASS_SD 

BEGIN 


! Get the SD, P form intermediate data for the left hand side. 
!' Create a place holder. Note, the intermediate may not 

' be created, for example, if we deposit P-->P, there 

! is no need for it. So the NEW_RIGHT_ARG may be the 

same as RIGHT_ARG. 


NEW_RIGHT ARG = INTMED_DATA_FOR_DEP(.RIGHT_ARG, DSCSK_DTYPE_P, 


! Perform convert from intermediate to intermediate. The Last 
! conversion is convert the intermediate to original left 
} hand side data type. 
iF .NEW_RIGHT_ARG NEQ .RIGHT_ARG 
THEN 
BEGIN 
LEP T ARG = DBGSTYPE_CONV(.LEFT_ARG, .NEW_RIGHT_ARG); 
END; . 
END; 


RIGHT_ARG = DBGSTYPE_CONV (.LEFT_ARG, .RIGHT_ARG); 


if. 


RIGHT_ARGCOBGS$B_DHDR_FCODE] EQL RST$K_TYPE_PICT AND 
RIGHT" ARGCDBG$B_VALUE_DTYPE) EQL DBGSR_DTYPE_PICT AND 
DBGS$GB_LANGUAGE™EQL DBG$K_COBOL 


HEN 
RIGHT_ARGCDBGS$B_VALUE_DTYPE] = DSCSK_DTYPE_T; 

RETURN .RIGHT_ARG; 

END 


ELSE 


SIGNAL (DBG$_OPNOTALLOW, 1, OPERATORCTOKENSB_OPLEN]) 


BEGIN 


4 zPOGSES_LANGUAGE EQL DBGSK_BASIC 


BEG! 
If . 
T 


ELS 


NEW_LEFT_TYPE EQL DSCSK_DTYPE_P 
MAP_PACKED (NEW_LEFT_TYPE, .LEFT_ARGCDBGS$W_VALUE_LENGTH], .NEW_RIGHT_TYPE) 
IF .NEW_RIGHT_TYPE EQL DSCSK_DTYPE_P 
MAP_PACKED (NEW_RIGHT_TYPE, .RIGHT_ARGCDBGSW_VALUE_LENGTH), .NEW_LEFT_TYPE); 


7 
? 
7? 
? 
? 
? 
7? 
7 
7 
7? 
7? 


6 
6 
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7 
7 
7 
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; 
5 
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7910 
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BOGGS 


IF .MAX_DEPTH Fal FIND JOIN( 
-NEQ_LEFT_TYPE, .NEW_RIGHT_TYPE, 
NEW-LEFT-TYPE, NEW-RIGHT-TYPE, 
ROUT_TBL~ INDEX, 
Mek teen” ATER TBL_SIZE 
INCOMP_ TOL, .INCOMP-TBL SIZE, 


"ROUT. TEL. “ROUT. TBL“SIZE) 
SIGNAL (DBGS_OPNOTALLOW, 1, OPERATORCTOKENSB_OPLEN)) ; 
END; 
END 
ELSE 


BEGIN 
IF .MAX_DEPTH EQL FIND_PATH( 
-NEW_LEFT TYPE, NEW_LEFT_TYPE, 


ROUT” TBL_ INDEX 

-HIER_TBL_SIZE, 
-INCOMP_TBL, .INCOMP"TBL_ SIZE, 
-ROUT_TBL, .ROUT_TBL~SIZE) 


N 
SIGNAL (DBG$_OPNOTALLOW, 1, OPERATORCTOKENSB_OPLEN)); 
END; 


If one of the operons has T, VT, V, or VU in relational and arithmetic 
spores ie in PLI. The target type for T, VT, V, or VU depends on 

the other operand. This is not what we do normally. 59. we use 

the normal way to validate the operand, and then use this routine 

to modify the other information. This is not the best way to do 

it, but there is no other way I can think of is easier. 


F .BINARY_FLAG AND 
;PBGSGB_LANGUAGE EOL DBGSK_PLI 


MODIFY_PLI_TARGET_TYPE(.OPERATOR, .LEFT_TYPE 
NEQ_LEFT_TYPE, NEW_RIGHT TYPE, ROUT 
HIER TBC, .HIER TBL_SIZ 
-INCOMP_TBL, .INCOMP"TBL_ SIZE, 
-ROUT_TBL, .ROUT_TBL~SIZE); 


4 Cie te te ee te ee te 


.RIGHT_TYPE, 
fBL_INDER, 


: Check for unconverted bit. 
IF_.LEFT_ARGCDBG$V_DHDR_UNCVT) 

LEFT_ARG = DBGSCONV_TEXT_VALUE(.LEFT_ARG, .LEFT_ARG, .NEW_LEFT_TYPE); 
For the left operand, check whether we need to convert to a new type. 


so, allocate space to hold the result value descriptor, and then 
call a routine to do the conversion. 


Ls sss 
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ie ; ff gL EFT tvPe NEQ .NEW_LEFT_TYPE 
7925 BEGIN 
79 $ omer ; 1 "ke astoacs LENGTH(.LEFT TYPE, -NEW_LEFT_TYPE, 
stbeees. 9 LUE LENGTH); 
2 3 4 D.ciAss ae 
.DBGSGB LANGUAGE ait DBGSK_COBOL OR 
8 , -DBGSGB_"LANGUAGE EQL DBGSK_RPG 
79 § 4 BEGIN 
ie 2 IF .LEFT_ARGCDBGSB_VALUE_CLASS] EQL DSC$K_CLASS_SD 
8 5 4 SD_CLASS_FLAG = TRUE; 
i . 
79 3 NEW_LEFT_ARG = MAKE_VAL_DESC(.NEW_LEFT_TYPE, 
79 «LENGTH 
7940 -LEFT_ARG, 
aod ~SD_CCASS_FLAG); 
7348 fF pet LEFT ARGCDOESS_VALUE CLASS) EQL DSCSK_CLASS_SD 
7945 4 BEGIN 
A og | 4 
7947 & 
7948 4 ! If left_arg is one of the floating-point data type, we need to 
7949 & i get the exponent soe an and phat is the sgel ing agtor. For 
jars ? example F <--> P, F -1234567E+04 <--> P = 1234.5 
7952 4 if .LEFT ~-ARG(DBGSB_VALUE_DTYPE] EQL DSCSK_DTYPE_F OR 
7953 4 -LEFT-ARGCDBG$B_VALUE_DTYPE) EQL DSCSK_DTYPE_D OR 
7954 4 LEFT “ARGCDBG$B_VALUE_DTYPE) EQL DSCSK_DTYPE_G OR 
e322 ? re -LEF T_ARGCDBG$B_VALUE_DTYPE] EQL DSC$K_DTYPE— 
7957 5 BEGIN 
7958 5 NEW_LEFT_ARGCOBGSB_VALUE_SCALE] = GET_SCALE(.LEFT_ARG, DIGITS) 
7959 5 NEW_LEFT_ARGCOBG$B_VALUE_DIGITS] = .DIGITS; 
7960 5 NEW_LEFT “ARG DBGSW_ “VALUE_LENGTH] = .DIGITS; 
7961 H END™ 
796 
7963 4 ELSE 
eee 4 - NEW_LEFT_ARGCDBGSB_VALUE_SCALE] = .LEFT_ARGCDBG$B_VALUE_SCALE); 
7 e 
796 NEW_LEFT_ARG = DBGSTYPE_CONV (.LEFT_ARG, .NEW_LEFT_ARG); 
7968 END 
jas 44 
79 9 ‘ 
797 ! If there is no conversion to be done, just copy the left arg 
376 i into NEW_LEFT_ARG. 
797 : 
7974 ELSE 
7975 NEW_LEFT_ARG = .LEFT_ARG; 
797 
797 i 
797. ! Check for unconverted bit. 
797 ! 
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3 f 7 6 If .BINARY_FLAG 

3; 787 THEN 

; f 3 if RIGHT _ARGCDBGSV_DHDR_UNCVT] 

Fy r 1 73 ¢ RIGHT_ARG = DBGSCONV_TEXT_VALUE(.RIGHT_ARG, .RIGHT_ARG, .NEW_RIGHT_TYPE); 
; 9 

; oere ie 5 : If this is a binary operator, do the same for the right argument. 
3 rene 7389 If .BINARY_FLAG 

3 7888 7991 IF i RIGHT. TYPE NEQ .NEW_RIGHT_TYPE 

; 7890 7998 BEGIN 

3; 7891 7994 LENGTH = GET_DATA_LENGTH( RIGHT TYPE, «NEW _RIGHT_TYPE, 

: 789 7995 «RIGHT _ARGCDBGSW VALUE _LENGTH)); 

; 789 7338 SD_CLASS FEAG s FALS 

3 789% 799 IF”. DBG$GB_L ANGUAGE EQL DBGSK _COBOL OR 

3; 7895 7998 -DBG$GB_ LANGUAGE EQL DBGSK_RPG 

H ree 7999 

3; 789 8000 4 BEGIN 

3; 7898 8001 4 IF_ .RIGHT_ARGCDBGS$B_VALUE_CLASS] EQL DSCS$K_CLASS_SD 

3; 7899 8002 4 THEN 

; 7900 £08 4 SD_CLASS_FLAG = TRUE; 

3; 7901 004 ND; 

3; 790 8005 

3; 790 8006 NEW_RIGHT_ARG = MAKE_VAL_DESC(.NEW a _TYPE, 

3: 7904 8007 «LEN iy 

3; 7905 8008 «RIGHT 

; 2906 8009 :SD_ ut at SLAG); 

; 790 gore 

; 7908 011 IF _ .NEW_RIGHT_ARGCOBGSB_VALUE_CLASS] EQL DSCS$K_CLASS_SD 

3; 7909 solg THEN 

3; 7910 013 4 BEGIN 

3; 7911 014 4 

3 mls 015 4 ! If right_arg is one of the floating-point data type. we peed to 
3; 791 gore 4 i get the exponent yolus 6 and ghat is the scaling jagter. 
: aa apie ? example F ==> P, 1254567E+04 <--> P 34 

3 a4 | 019 4 IF .RIGHT_ARGCOBGSB_VALUE_DTYPE] EQL DSCSK_DTYPE_F OR 

3; 791 020 4 :RIGHT~ARG DBG$B_VALUE_DTYPE] EQL DSCSK_DTYPE_D OR 

3 ja dt | 021 4 »RIGHT_ARGLDBGSB_VALUE_DTYPE] EQL DSCSK_DTYPE_G OR 

3; 791 0 § 4 -RIGHT_ARGCDBG$B_VALUE_DTYPE) EQL DSCSK_DTYPE_H 

: $339 oo, § et 

3; 79 § 025 ; NEW_RIGHT_ARGCOBGSB_VALUE_SCALE] = GET_SCALE(.RIGHT_ARG, DIGITS) 
3; 79 0 $ NEW_RIGHT~ ARGLDBG$B_ VALUE pets = DIGITS; 

3 a : 3 ; weve RIGHT_ARGCDBG$W_VALUE-LENGTH) = .DIGITS; 

3; 79 $ 0 § 

3; 79 030 4 ELSE 

3: 7928 031 4 NEW_RIGHT_ARGCDBGS$SB_VALUE_SCALE] = .RIGHT_ARGCDBG$B_VALUE_SCALE]; 
3 ie 9 0 § END; 

: 7931 NEW_RIGHT_ARG = DBGSTYPE_CONV (.RIGHT_ARG, .NEW_RIGHT_ARG); 
3 44 § 3 5 END 
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TB-bep-1986 0:52:25 YANN! BLigg-32_ v4 
ELSE ey RIGHT_ARG = .RIGHT_ARG; 


ROUT INDEX = .ROUT TeL. ROUT_TB BL. INDEX ORTSu, ROUT); 
YPETD_INDEX = .ROOT TBLC.ROOT TOL_INDEX, ORTSW_TYPEID_ROUT); 
RESULTS TYPE = r T Br ; Rou UT_TBL TEX ons _RESULT_TYPEJ; 
F (WN WALEFT ARG(DBG$B_V LUE CLASS) SC$K-CLASS_SD) OR 
4-8 NARY_FCAG AND ( CREW ~RIGHT_AR acbeese: SHALOE _CLASS] EQL DSCS$K_CLASS_SD)) 
: SD_CLASS_FLAG = TRUE 
SD_CLASS_FLAG = FALSE; 
LENGTH = 0; 
IF .ROUT_INDEX EQL ORTSK_ CONCAT_T T OR 
~ROUT-INDEX EQL ORTSK-CONCAT_TF_TF 
LENGTH = .NEW_LEFT ARGCOBG$W_VALUE_LENGTH] + 
»NEW_RIGHT_ARGCOBGSQ_VALUE_LENGTH); 


IF .LENGTH EQL 0 
THEN 


BEGIN 
IF .RESULT_TYPE EQL DSCSK_DTYPE_V 
ESULT-TYPE EQL DSC$K~DT PE-VU OR 
“RESULT TYPE EQL DSCSK_DTYPE_SV OR 
needs <TYPE EQL DSCSK-DTYPE-SVvU 


"BEG IN 
LENGTH = of he LEFT_ARGCDOBGS$W_VALUE_LENGTH]; 
Heine Jus 


BEGIN 

IF .NEW_RIGHT_ARGCDBG$W_VALUE_LENGTH) GTR 

: New LEFT_ARGCOBG$W_QALUE_CENGTHJ 

: LENGTH = .NEW_RIGHT_ARGCDBGSW_VALUE_LENGTH); 


ELSE 
LENGTH = DBGSNUM_BYTES(.RESULT_TYPE); 


END; 
RESULT = MAKE_VAL_DESC(.RESULT_TYPE, 
LENGTH, 


SD_CLASS_FLAG); 
! Make sure we did not turn SD_CLASS_FLAG on for the followin 


: data types. (in order words, ignoré the incoming data types). 
CASE -RESULTCDBG$B_VALUE_DTYPE] FROM DSCSK_DTYPE_LOWEST 
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16-Sep-1984 00:32:25 AX-11 Bliss-32 V4.0-74 

sets 1 90:32:53 DEBUG. SRCIOBGEVALOF.64551 
TO DSCSK_DTYPE_HIGHEST OF 

DTYPE Py Osea DTYPE_G, DSCSK_DTYPE_H 


$k 
CSR_DTYPE_6C, DSCSK_DTYPE GC, DSCSK_DTYPE_HC): 
LUE-CLASSJ =DSCSK_CLASS_S; 


Call the routine which perforas the operation. We pass in 

the routine index, which is used as a case index inside the 

routine, the addresses of the operand value descriptors 

and the address of a longword containing a pointer to the result 
value descriptor. The reason for the extra level of indirection 

for the result is that sometimes DBGSPERFORM_OPERATOR will construct 
} anew descriptor instead of using the one we pass in. 


DBGSPERFORM_OPERATOR (. OPERATOR 


SSLESE 


‘G9 Cd Cd CD OD CD GD Cd OD 0D G9 CD 0D 09 C9 09 C9 CD CD CD CD CD CD CD 
—> 
oO oO 
esesssssess 
“~ - rw 
nm. gcoMm 
“vo 2 “ue 
. zB Oo 
SSRRR 
© maxX 
ows t 
mcoo 
_r--— 
te 
SSR 
omm 
—c 6 
Sao 
> | o 
m<ow 
wVwPrue 


EEEEEEEER RES eee e 


3 


St 2 2s > 2 a 


10 
11 
$010 ig ;ROUT_ INDEX 
8011 14 -NEW_CEFT_ARG, 
eog 15 (IF TBINARY_FLAG 
1 18 THEN NEW_RIGHT_ARG 
8014 1 ELSE 0), 
8015 118 RESULT); 
Be 
8018 8121 ! Call TYPEID routine to do type check on non-atomic data types. And 
dh 4 3 ¢ also fix up the Result Value Descriptor. 
B03 81 4 if .TYPEID_INDEX NEQ 0 
80. ; 125 THEN 
3 81 $ BEGIN 
024 81 IF NOT DBGSPERFORM_TYPEID_CHECK(.TYPEID_INDEX, .NEW_LEFT_ARG, 
8025 81 8 eat ;NEW_RIGHT_ARG, .RESULT) 
6037 I ° SIGNAL (DBG$_OPNOTALLOW, 1, OPERATORCTOKENSB_OPLEN)); 
029 1 END; 
a: 
+344 : 5 H Return a pointer to the RESULT value descriptor. 
803% 1 RETURN .RESULT; 
5 1 END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


a a 


24 47 42 44 SC 50 4F 4C 41 56 45 47 42 44 31 OSCBE P.ALS: .ASCII \1IDBGEVALOP\<92>\DBGSEVAL_LANG_OPERATOR, \ 
41 52 45 50 4F SF 47 4E 41 4C SF 4C $3 ie ry ane 

20 79 63 6 65 74 73 69 73 GE 6F é§ 6— 69 ¢ 80 eASCII \ inconsistency 1\ 

24 47 42 44 SC 50 4F 4C 41 56 45 47 $¢ 44 31 CCO P.ALT: .ASCII \1DBGEVALOP\<92>\DBGSEVAL_LANG_OPERATOR, \ 
41 52 45 50 4F SF 47 4E 41 4C SF 4C 41 56 45 CCF 


ni 


N 11 
$rStp-198e 21:54:06 — EDeauG. Sc SDaGEVALOP.659: 1 ee 


— 
~oO 


ee 

| 
52 4F 54 O0S5CD ; 

20 79 63 6E 65 74 73 69 73 GE 6F és 6E 69 ‘ 43 ASCII \ inconsistency 2\ : | 

26 47 ° 466 SC SO GF 4C 41 56 45 47 42 46 F2 P.ALU: .ASCII \1DBGEVALOP\<92>\DBGSEVAL_LANG_OPERATOR,\ | 

41 S2 «5 50 4F SF 47 GE 41 4C SF GC ef 36 49 bof ' , a ee Seen : | 

20 79 63 6& 65 74 73 69 73 GE 6F g§ 6— 69 3t ASCII \ inconsistency 3\ : 
24 47 42 44 SC 50 GF 4C 41 56 65 47 42 44 bg P.ALV: .ASCII \6DBGEVALOP\<92>\DBGSEVAL_LANG_OPERATOR \ : 
41 52 45 50 4F SF 47 4E 41 4C SF sc ki 28 is D3 ie Me : 
6D 20 65 6C 62 61 74 20 65 66 69 fe i 6 73 D4 ASCII \routine table missing\ : 
45 47 42 44 5¢ 50 4F 4C 41 14 43 47 42 6% 34 5058 P.ALW: .ASCII \4DBGEVALOP\<92>\DBGEVAL_LANG_OPERATOR, \ : 
41 52 45 af SF 47 GE 41 «(4C F 4¢ 41 36 306A : 
61 66 20 72 64 64 61 20 6F 74 20 6p 69 i 79 3070 «ASCII \prim to addr failed\ : 
24 47 42 44 SC 50 4F GC 41 56 45 47 42 46 $2 5090 P.ALX: ASCII \4DBGEVALOP\<92>\DBGSEVAL_LANG_OPERATOR,\ : 

41 52 45 50 4F SF 47 4E 41 4C SF 4¢ 41 36 49 209 ee 

61 66 20 6C 61 76 20 6F 74 20 6D 69 2 79 20 S082 -ASCII \ prim to val failed\ ; 
45 47 4&4 44 36 50 4F 4C 41 56 45 47 42 44 3 50C5 P.ALY: .ASCII \4DBGEVALOP\<92>\DBGEVAL_LANG_OPERATOR, \ : 
54 41 52 45 50 GF SF 47 4E 41 4C 3F 4¢ 41 36 5004 : 
61 66 20 72 64 64 61 20 6F 74 20 6p 69 8 70 SDE? -ASCII \prim to addr failed\ : 
45 47 & 44 5C 50 4F 4&4 41 56 45 47 42 44 H SDFA P.ALZ: .ASCII \4DBGEVALOP\<92>\DBGEVAL_LANG_OPERATOR, \ : 
54 41 52 45 50 GF SF 47 4E 41 4C 3F 4¢ 41 36 3£09 : 
61 66 20 72 64 64 61 20 6F 74 20 6p 69 i 70 OEIC -ASCII \prim to addr failed\ 
24 47 & 44 5C 50 4F 4C 41 56 45 47 42 44 $? seer P.AMA: .ASCII \4DBGEVALOP\<92>\DBGSEVAL_LANG_OPERATOR,\ : 
41 52 45 50 4F SF 47 4E 41 4C SF 4¢ 41 36 49 DE SE : 
61 66 20 6C 61 76 20 6F 74 20 6D 69 i 70 20 3651 -ASCII \ prim to val failed\ : 
45 47 42 464 SC 50 4F 4C 41 56 45 47 42 44 34 3E64 P.AMB: .ASCII \4DBGEVALOP\<92>\DBGEVAL_LANG_OPERATOR, \ 
54 41 52 45 50 GF SE 47 GE 41 4C 3F 4¢ 41 36 Be : 
61 66 20 72 64 64 61 20 6F 74 20 6D §5 3§ 70 05686 -ASCII \prim to addr failed\ : 

64 65 6C 69 05€95 : 

| 

.PSECT DBGSCODE.NOWRT, SHR, PIC,0 | 

OFFC 00000 ENTRY DBGSEVAL _LANG PERATOR, Save R2.R3.R4,R5.- ; 7068) 

R6,R7,RB,RI,RTO,R11 ; 

SE 24 C2 0000 SUBL2 a6, Pp ; | 

; D4 0000 CLRL. OR > 7164 

04 04 BC 10 1 : 007 CMPZ7V #16, #16, @OPERATOR, #4 : 

04 BNEQ 1 ‘ | 

0: oe as, 

05 046 BC 10 8 ED 0013 1$: CMPZV #16, #16, @OPERATOR, #5 > 7165 | 


- GEVALOP ib-Se Sep-1984 t 90: a: $? AX-11 Bliss-32 V4.0-7 Page i 


-Sep-1984 DEBUG. SRC JDBGEVALOP. bg 31 
3 13 00019 BEQL : 
oosa 3 0015 38: BRW $ : 
52 08 at DO OOO1E 3S: MOVL LEFT ins RZ : 
FG 06 A 05 €1 000 BBC (R i, $ : 
0c Ag D3 00 TSTL =e RI tut A : 
15 13 OO02A BEQL re : 
00000000" EF 9F 000 § PUSHAB P.ALS : 
1 0D 00 PUSHL : 
00028362 8F DD 00034 PUSHL #164706 ; 
000000006 00 03 FB OO03A CALLS #3 LIBS] GNAL : 
79 ~—s«BF 02 A2 91 00041 4$: CMPB (R2), #121 : 
07 13 4g BEQL : 
83 «BF 02 Ae 91 0004 CMPB 4 =s«2 (2), -#131 : 
15 12 00040 BNEQ 6$ : 
00000000' FF 9F OOO4F 5$ PUSHAB P.ALT : 
1 DD 00055 PUSHL : 
00028362 8F DD 00057 PUSHL #164706 ; 
000000006 00 03 FB 0005D CALLS #3, LIBSSIGNA : 
05 04 BC 10 10 ED 00064 6$ CMPZ7V #16, #16, SOPERATOR, as : 
OA 12 0006A BNEQ F 
0042 8F 12 A2 B1 9006¢ CMPW =s-«WB(R2), #66 : 
0D 12 0007 BNEQ 8$ : 
le 11 00074 BRB 9$ ; 
16 53 £9 00076 7$ BLBC = R3,_:108 : 
0042 8F 12 a2 81 00079 CMPW 3 =s-:« WB (R2), #66 : 
07 12 O007F co 0 s«o9'S : 
12 A2 42 8F 98 00081 8$ MOVZBW #66, 18(R2) F 
1C 11 00086 B 11$ : 
12 A2 43 8F 98 00088 9$ MOVZBW #67, 18(R2) : 
15 11 00080 B 11$ ; 
00000000" EF 9F OOO8F 10$ PUSHAB P.ALU : 
01 DD 00095 PUSHL #1 : 
00028362 8F DD 00097 PUSHL #164706 ; 
000000006 00 03 FB 0009D CALLS #3, LIBSSIGNAL : 
50 52 DO 000A4 118 MOVL 2. RO ; 
04 000A7 RET : 
8F 046 BC 10 10 ED OOOAS 12$: § CMPZV #16, #16, @OPERATOR, #66 ; 
08 12 000B2 BNEQ 13$ : 
04 AC 000000006 00 9E 000B4 MOVAB DBGSGL NEG_SIGN_TOKEN, OPERATOR ; 
8F 04 BC 10 19 FD 9008¢ 13$: CMP ZV , #16, SOPERATOR, #67 ; 
04 Ac 000000006 00 4 O98 MOVAB DBGSGL_POS_SIGN_TOKEN, OPERATOR ; 
00000000' EF 01 D0 00000 148 MOVL #1, MAR_DEPTH : 
09 00000000" EF €9 9o7 BLBC BL iss BITSELECTION FLAG1, 15$ ; 
00000000" EF } D0 OE MOVL ’ { BCISS_BITSELECTION_FLAG2 ; 
90000000" EF 04 B00E? 15$:  CLRL  BLISS_BITSELECTION_FLAG2 ; 
0000000' EF 04 OOOED 16$: CLRL BL 188 ~BITSELECTION® FLAGI : 
00000000" EF D4 OOF CLRL LISS) p{NDIRECTION FL LAG : 
52 04 BC 10 10 EF OOOF EXT2 6 QOPERATOR, OPCODE F 
58 04 AC C C1 OOOFF ADDL Oe : 
00000000" EF : dO 001 MOVL ; DBGSGL OBe CODE _NAME : 
D4 001 CLRL Ri ; 
03 04 BC 91 001 CMPB SOPERATOR, 3 : 
12 00111 BNEQ 17$ ; 
06 113 INCL RO : 
OC AE 0 00115 178:  MOVB RO, BINARY_FLAG : 


12 | 
DEGEVAL OP igeSeo~t98e O0:52:35  YMGNT olisgs82 yaa0-7 Pane 8h) 


DEBUG. SRCJDBGEVALOP.B32;1 
| 
8 04 78 00119 ASHL. #4, OPCODE, RB 3 7249) 
af 90000000" EF a 119 ADDL3 OPINFO TABLE, R8, R1 ; : 
0000000" EF E 1 MOVAB TABL , RO : | 
57 61 t 1 ADDL3 (R1), R ROUT TBL : | 
0 00000000" EF : 01 MOVAB TABLEBASE, R : 7250. 
0 7 D1 001 CMPL  ROUT_TBL, RO : 
12 0013A BNE : 
32 D1 0013¢ CMPL  OPCODE, #50 : 7253 
¢ 13 0013F BEQL : 
33 D} 00141 CMPL PCODE, #51 : 
é 13 00144 BEQL : 
38 pj 00146 CMPL  OPCODE, #56 + 7254 
1D 13 0014 BEQL «19S : 
00000000' FF 9F 0014B PUSHAB  P.ALV : 7256) 
1 DD 00151 PUSHL : 
00028362 8F DD 00153 PUSHL #164706 : 
000000006 00 3 FB 00159 CALLS #3, LIBSSIGNAL : 
6 11 00160 BRB : 7250) 
04 AE FC OAT 2 (7 00162 18$:  DIVL3 #2, -4(ROUT_TBL), ROUT_TBL_SIZE > 7259 
50 00000000" EF DO 0016 19$:  MOVL. OPINFO_TABLE, RO + 7260 
51 00000000" EF 9€ O16F MOVAB TABLEBASE, Ri ; 
04 A840 9F gi 6 PUSHAB 4(RS)CRO : 
SA 51 9E C1 OO17A ADDL3 a(SP)+, R1, HIER_TBL : 
31 00000000" EF SE 00176 MOVAB TABLEBASE, R1  7261| 
51 A 01 0018 CMPL HIER_TBL, R1 : 
11 13 00188 BEQL  20$ : 
5 FC AA 01 78 0018A ASHL #1, -4(HIER_TBL), HIER_TBL_SIZE : 7264 | 
00000000" EF 00000000'FF45 3E 0018F MOVAW a@MAX_DEPTHCAIER_TBL_SIZEJ, MAX_DEPTH : 7265 | 
51 00000000 EF 9€ 0019B 20$:  MOVAB TABLEBASE, R1 : 7267 | 
08 A840 9F OO01A2 PUSHAB 8(R8) CRO : | 
59 51 9E C1 O01A6 ADDL3 a(SP)+, R1, INCOMP_TBL ; 
51 00000000' EF 5E OO1AA MOVAB  TABLEBASE, : 7268 | 
51 9 D1 001B1 CMPL _ INCOMP_TBL, R1 : 
06 13 001B4 BEQL 21$ ; 
08 AE FC OQ 01 78 00186 ASHL #1, =4(INCOMP_TBL), INCOMP_TBL_SIZE : | 
53 08 AC DO 001BC 21$: § MOVL Let ARG, R3 : 7285 
79 «BF 02 Ad 91 0010 CMPB (R33, #121 : 
07 13 orcs BEQL 2$ ; 
83 BF 02 Ad 91 001C CMPB (R3), #131 : 7286 
55 12 001CC BNEQ 5$ : 
03 OC A840 00 £0 OO1CE 22$: BBS 40 12(R8)CROJ, 238 : 7303 
ooce 31 00104 BRU 338 ’ 
00000000" EF 61 DO 001D7 238: MOVL #1, BLISS INDIRECT ION. FLAG > 7306 | 
07 000000006 90 91 O10 CMPB DBGSGE_LARGUAGE , s : 7312 
F 12 OO1€ BNEQ 6$ : 
01 06 A3 91 OO1E7 CMPBs«&(R3), #1 > 7313 | 
39 if O1EB BNEQ 6s : | 
56, 08 A3 DO OO1ED MOVL (R3), TYPEID : 7319 | 
08 AC 9F OO1F1 PUSHAB LEFT_ARG ; 7323 | 
Q DD oir PUSHL # : 
DD 166 PUSHL R : 
000000006 09 Q Fe Oi CALLS #3, DBGSPRIM_TO_ADDR : | 
1 . 1FF LBS RO, 24$ : | 
00000000' EF 9F 08 PUSHAB P.ALW : 7325. 
1 OD 0 PUSHL #1 s 
00028362 8F DD OO2OA PUSHL #164706 : 
000000006 00 3 FB 00210 CALLS #3, LIBSSIGNAL : 


D 12 | 
vOeeuOo "ereee-13ke Oii8cs52 © EbkeuG. ShcIoacevacoe 43,1 Pose 


Vv g 
5 08 Ac 17 24$ MOVL LEFT_ARG, RO 7329 
06 A 1B MOVE #6, B(ROS : | 
A p 1F MOVL YPEID, 8(RO) : 7330 
00 1 3 358: BRW 5$ : 7312, 
09 04 aS é9 6 268: LBC 40—_-« &(R3),,_- 27 : 7340. 
53 0D A PUSHL R ; 7342 | 
000000006 00 01 FB CALLS #1, DBGSCOLLECT ; | 
4 D4 0 27$:  C¢LRL  SYMID : 7349) 
45 04 as £9 BLBC «= ss«&(R'3), 328 : 7350| 
07 06 A | 0239 CMPB G(R eR : 7353) 
D 13 00230 BEQL 8$ ; | 
000287F8 BF DD 0 F PUSHL #165880 ; 7355 | 
000000006 00 A * 45 CALLS #1, LIBSSIGNAL : | 
oat fe Mee at BBE ie Bet Het 
000287F8 8F DD 0025 PUSHL #165880 : 
000000006 00 01 FB 0 S CALLS #1, LIBSSIGNAL : 
01 14 a 9 0 3 30$ CAPE goisYMID), #1 ; 7362) 
54 10 Ad DO 00 65 MOVL 16(SYMID), SYMID + 7364 
E5 11 00269 BRB 29$ > 7365 
03 29 Aa 91 00268 31$:  CMPB 41(SYMID), #3 : 7367 
OD 13 0026F BEQL 32$ ; 
000287F8 8F DD 00271 PUSHL #165880 : 7369 
000000006 00 1 FB 00 77 CALLS #1, LIBSSIGNAL : 
re OR ORE Sa RSA SH AND BREE ME, Keel 
53 DD 80585 PUSHL R3 ; | 
000000006 00 93 FB 00287 CALLS #3, DBGSPRIM_TO_VAL ’ 
2E soooo000" er SF onset pea PAu : 7374, 
17 11 00297 BRB 34$ : 
08 AC 9F 00299 33$: | PUSHAB LEFT_ARG : 7380. 
eS aa est 
000000006 00 03 FB 002A0 CALLS #3, DBGSPRIM_TO_ADDR : | 
ig 00000000' HY g8 $0 v4 BE SHAS hi : 7382 
00028362 BF pp O0sBe Opt Stt At 64706 ; | 
000000006 00 Bs PR Sbsbe CALLS #3. LIBSSIGNAL : 
cf BE AE ES GOGBE 358: GLEE BIMARY FLAG, 395 : 7387 
79 «BF 02 A Bf ast? CMPB giR3)> #104 ; 
41° 13 O02cC BEQL 6$ : | 
83 BF 02 a3 91 00 ce CMPB (83). #131 : 7390 
65 12 0020 BNEQ 9 : | 
32 i D1 0 D5 cHPL CODE, #50 : 7391 | 
33 § p} O2DA CMPL PCODE, #51 : | 
58 13 00200 BEQL : | 
50 58 00000000" EF Ci OO2DF 368 ADDL3 OPINFO_TABLE, R8, RO : 7393 | 
. ” 009 5S 34 Bho g5R0). ’ : 
00000000" EF EE 37% MOVL #1, BLISS_INDIRECTION_FLAG : 7396 | 
by? 000000006 00 a iS CHPB DBGSGB_LANGUAGE , Ma : 7402 


000000006 


000000006 


06 
08 


000000006 


000000006 


000000006 


000000006 


000000006 


000000006 


000000006 


00 
32 


06 
O¢ 


00000000' 
00028362 
oc 


04 


04 
06 


000287F8 
oc 
000287F8 
14 
10 
29 
000287F8 
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00000000° 
oc 


00000000° 
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DEBUG. SRC JDBGEVALOP.B 
CMPB sé (R3), #1 
BNEQ 
MOVL  8(R3), TYPEID 
PUSHAB RIGHT_ARG 
PUSHL 
PUSHL R 
CALLS #3, DBGSPRIM_TO_ADDR 
LBS RO, 38S 
PUSHAB P.ALZ 
PUSHL 
PUSHL #164706 
CALLS #3, LIBSSIGNAL 
MOVL  RIGHT_ARG, RO 
MOVE = #6 
MOVL  TYPEID, 8(RO) 
BRW 49 
BLBC 4(R3), 41$ 
PUSHL R3 
CALLS #1, DBGSCOLLECT 
CLAL SyAID 
BLBC 4(R3), 46$ 
CMPB ss (R38), #7 
BEQL 42$ 
PUSHL #165880 
CALLS #1, LIBSSIGNAL 
MOVL 12¢R3), SYMID 
BNEQ 44$ 
PUSHL #165880 
CALLS #1, LIBSSIGNAL 
CMPB 20{SYMID), a) 
BEQL 45$ 
MOVL 1e<SYMID) SYMID 
BRB 43$ 
CMPB ss G1 (SYMID), #3 
BEQL 46$ 
PUSHL #165880 
CALLS #1, LIBSSIGNAL 
PUSHAB RIGHT_ARG 
MOVZBL #122,7-(SP) 
PUSHL RS 
CALLS #3, DBGSPRIM_TO_VAL 
LBS RO, 49S 
PUSHAB P.AMA 
RB 48$ 
PUSHAB RIGHT_ARG 
PUSHL # 
PUSHL R 
CALLS #3, DBGSPRIM_TO_ADDR 
LBS —s- RO. 49$ 
PUSHAB P.AMB 
PUSHL #i 
PUSHL #164706 
CALLS #3, LIBSSIGNAL 
CLRL RG 
CMPL OP CODE. #50 
BNEO 0$ 
INCL RG 


re 
7403 | 
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le -32 v4.0-74 Page $7} 
-$ep-1984 32:25 AX-11 Bliss . ; ‘ | 
opet _ Bae 1 90:32:83 DEBUG. SRC IDBGEVALOP.B32;1 ao 
FT_ARG, R1 : 
Hi POS EY Bose pac, WS. URS, 508 ~ 
nr er ae) ea j 7483 
14 A E . | 
on a foe i thoy, ecm ge 
pe 9 ste: HH. DBGSCONV_TRFA_VALUE : | 
0 i 08 f CAPR POESED LANCGAGE #8 ; 7496) 
08 000000006 o 91 49 508: CHPE ' - : ; om 
# of Bee | OR tle, fe 
: B 12 0041 BNEQ 318 S aso1, 
OOv CF ‘ 3 a445 CALLS #1, MAP NRO DTYPE_ IN, RPG ; | 
moe it e BS 8435 51$: BLBE BINARY FLAG. 52$ ; 7305 | 
t " $5 FY "  CMPL PCODE, #50 : 
32 52 D1 004 4 cHPL eed 
35 i 7% CMPL PCODE, #51 ; 
as 4 13 8 C BEQL § ssos 
Dd 004 MOVL §RIGHT_ARG, RO | 
; % AO 4 5 CMPB (ROY, #19 
: vm 0B 3 be BNEQ 5 $ Sasi, 
gy Pe abe A CALLS #1, MAP_NRO_DTYPE_IN_RPG : | 
ony 9 D8 0043F MOVL RO, RIGAT_ARG : 2518 | 
= a © DO O06gs S28: MOVE LEFT ARG, “RO ; | 
FF ap 8 AO oY S024? * CMPB BROT, #855 ; c 
ee et a: ae Las 
; 16 5 of 00435 ey 23(R0). #255 sont 
" BOR Ree a 
3 PB ree CALLS i. FIXUP_EMPTY_SET : 
— = 96 0466 MOVL RO. LEFT_ARG ; 1524 
” oS c AE 4 046A 53$:  BLBC BINARY FLAG, 548 i 7534 
FF ar a A BY 09473 CAPS (RO); #255 ‘ 
8F 17 Hi of rhe One 3(RO), #255 7527 | 
* et a a aes Ls 
re Moe Oe ag BO PUSHL  LEFT_ARG 7530 | 
3 48C CALLS #2, FIXUP_EMPTY_SET ; | 
— © g , 1 MOVL RO, RIGHT~ARG > 7536 | 
mee 08 AC DO 00495 548: MOVE LEFT_ARG, HS ; | 
PRES BEN Ft sect mene = 
2 RE £5 Hi BLBC BINARY FLAG, 56 + 7330 
38 = § + Ad CMPL QBCODE; #5 ; | 
; 3 * A7 BNEG 5$ 


ifeBen-1964 052-25 YANNI BLigs=32 v4s0-742 age 224, 


Cc oA p 4A9 MOVL §RIGHT_ARG, RO : 7540 
ic 2 4AD TSTB = & (RO) * : | 
08 19 0048 BLSS 56$ : | 
OC AC OD 00482 55$:  PUSHL RIGHT_ARG ; 7542 
FB 0048 CALLS a. DBGSD0_MAPPING : | 
DD 004BA 56S: SHL  R : 7547) 
1 F 48 CALLS #1, D DBGSGET DTYPE : 
0 pO 004¢ VL =O. LEFT TYP : 
6 DO 00464 a 7. Aner TYPE ty WLEFT_ TYPE : 7548 
C AE €9 004¢8 BLBC BINARY_FLA : 7553) 
C AC OD 004CC PUSHL RIGHT Re + 7555 
1 F 4CF CALLS #1, DO bBGSGET DTYPE : 
DO 00404 MOVL RO, RIGHT TYPE : 
DO 00407 MOVL RIGHT T TYPE. NEW_RIGHT_TYPE ; 7556 
g 11 0408 BRB 58S > 7553) 
D4 00400 578:  CLRL  $RIGHT_TYPE : 7563 
14 AE 04 0040F CLAL NEW RIGHT TYPE : £266 
52 01 004E2 58$:  CMPL OPCODE, #56 : 7576 
19 12 004 BNEG 60s : 
95 E1 004E BBC #5, 4(R3), 598 : 7579 
D4 OO04EC CLRL 0s =< §P) : 7581 
53 DD O04E PUSHL ; | 
53 DD 004F PUSHL R : 
F 93 FB O04F CALLS - DBGSCONV. TEXT_VALUE : 
0 00 004F MOVL RO LEFT_ARG” 3 
50 08 AC 00 004FB 59S:  MOVL LEFT_ARG> RO : 7583) 
04 OO4FF RET : 
03 0c AE &8 0500 60$:  BLBS BINARY FLAG, 61$ : 7657 | 
0278 31 90504 BRW 0$ ; | 
40 54 £9 00507 61$:  BLBC R4, 65$ + 7626 
50 oc A B0 090A MOVL § RIGHT_ARG, RO + 7625 
06 ao 9 306 TSTB = & (RO) 3 
OA 19 0051 BLSS  62$ F 
OE 6 D1 00515 CMPL = LEFT_TYPE, #14 : 7626 
F i 0 18 BNEQ 4$ ~ : 
16 8 D1 0051 CML RIGHT_TYPE, #22 cies 
2A if 0518 BNEG ; 
50 08 AC DO 0051D 62$: MOVL i ARG : 7629 
OF 06 AO E1 00521 BBC g«R0} . RO3S : 
0101 8F 6B 00526 PUSHR + 7631 
DD 3 A PUSHL : 
FOOD sCF g FB 052¢ CALLS z seneeene _TEXT_VALUE ; 
08 AC dO 00531 MOVL no LEFT she : 
~. 00000090" EF pp 05 5 638: PUSHL i : 7633 | 
000000006 00 O§ FB O53F CALLS rie sate ant OK _DxX : 
05 4 €8 O8¢? us: BLBS 66$ > 7642 | 
3 2 01 0054 65$: CMPL Bpcope. #51 : 7643. 
1 if 4D BNEQ ; | 
50 oc A p 4F 66$: MOVL RIGHT ARG. RO : 7646 | 
05 06 A 9 ; cHPB 6(RO)> ; 
50 08 A 06 9 MOVL FT_ARG, RO > 7647 | 
0€ 6 A D CMPB (RO), #14 ; 
Op 13 00561 BEQL : : | 
03 000000006 00 91 00563 CMPB © DBGSGB_LANGUAGE, #3 > 7648 
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54 14 
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14 =A 
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8 000000006 
0 
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04 02 
05 02 
OF 02 
0042 = 8F 12 
12 A2 Qo 
00028748 
000000006 00 
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> ro 
VF WNF 3D MRNIM LALO LMU LSOOOOMO VUWM® & 


1e-§ 
823 
1 A 
D 
E 67$: 
° 7 
43 00878 
DD 7B 68$: 
DD 7 
DD 
BB 005 
DD 
D4 9 
DD 
DD ; 
EB 05 } 
5 b298 
Bay om 
is O05h4 
DO 005A6 
91 OOSAA 
13 OOSA 
91 0058 
12 00587 
90 00589 
BSR re 
83 et 
12 Boat 
ae 
oY Oe08 
of tte} 71$: 
A 00300 
91 005E4 
13 005E7 
91 005€9 
12 OOSEC 
91 OOSEE 72%: 
13 Boer 
91 O05F4 
13 pare 
g FA 
13 +43 
91 
1 6 
Ph 6 : 73$: 
9B 006 
DD 1 
DD 0061 
DD 1 
FB 1D 
8B sf 74$: 
DD 8 
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678 
#48, NEW_RIGHT_TYPE 
R4, 68 

PCODE, #51 

8$ 


6$ 
ROUT_TBL_SIZE 
T_TBL 
INCOMP_TBL_SIZE 
#*M<R5,R9> 
HIER_TBL 
-(SP 
NEW_RIGHT_TYPE 
t Typ 


NEW_LEFT TYPE 
#9.-F IND-PATH_DEPOSIT 
RO, 69$ 


RIGHT _ARG. R3 
(R3)> # 


FT_ARG, RO 
(RO), #14 


GS$GB_LANGUAGE, #3 


#48, 22(R3) 
20(R3), RS 
(SP) 
(R4), #9 
1$ 


P) 
#3. 30(R3), 718 
#21, NEW_RIGHT_TYPE 


LEFT ARG, Re. 
DBGSGB LANGUAGE , RO 
R ‘ r 
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4), #3 
4), #4 
4), #5 
4), #15 
R2), #66 
- 18(R2) 
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tO FOF MW Wee 
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#3, LIBSSIGNAL 
BPich2 ABD 


re ghee n » 7 
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| 
| 
EF CF F A CALLS #3, DBGSCONV_TEXT_VALUE ; 
% 9 08 $ COLS fa. Degscony ; 
12 1 88 ee 2 eS ‘sock 778 ¢ 7030 
1 02 Ad | 76$:  CMPB (R64), #21- : r73e 
oC 1 F BEQL ; 
OF 02 A 4 4 CMPB (R4), #15 + 7733 
06 1 43 BEQL ; | 
30 02 a, 9 647 CHPS (R46), #48 : am 
7E 15 7D 64 77$: mova 21 5 (sP) : 7736 
08 aC DD 2 PUSHL ter ARG ; 
0000v CF FB 6 CALLS , INTMED_DATA_FOR_DEP ; 
08 AC p 65 MOVL R LEFT_ARG : 
3 000000006 3A 065 78$: MOV ZBL pecssh. LANGUAGE, RO : 7750 
05 13 006 BEQL 98 ; 
08 0 91 006 CMPBSséRO, #8 : 7751 
50 12 00668 BNEQ 1§ : 
03 02 A& 91 0066D 79S:  CMPB (R4), #3 : 7758 
12 13 00671 BEQL 0$ ; 
04 02 Ad 91 0067 CMPB (R4), #6 : 7759 
OC 13 0067 BEQL 0$ F 
05 02 As 91 00679 CMPB (R4), #5 : 7760 
06 13 00670 BEQL 0$ ; 
OF 02 Ad 91 0067F CMPB (R4), #15 : 7761 
38 if 00683 BNEQ 1$ ; 
50 08 AC D 006 5 80$:  MOVL FT_ARG, RO : 7762 
15 16 AO 91 00689 CMPB (RO), #21 ; 
2— 12 006 BNEQ 1 : 
51 08 AC v0 O68 MOVL FT_ARG, R1 : 7770 
50 14 Al 3¢ 0 69 MOVZWL 20(RT), BIG ; 
50 02 C6 069 DIVL2. # : 7772 
51 20 8 ar 5 aD69¢ te ge tnt), RO _POS), SIGN : 7777 
0D ef ge CMPB IGN, nig : 7778 
15 12 BNEQ : 
60 01 ef BA B1¢B2 #255, (SIGN_POS) ; 7781 
1 PUSH : 
000000006 a tr bb PUSHL #8, LOSSIGNAL : 
50 000000006 9A 818: MOVZBL D scp. LANGUAGE, RO : 7806 
33 BEQL $ F 
08 0 91 CMPBséRO, #8 : 7807 
21 7 ig ‘ 82$: BLBC fp) 83$ : 7810 
6 DD " - PUSHL#d* : 7821 
15 DD PUSHL #21 : 
DD PUSHL R : 
0000v ff FB CALLS ‘ : mea aTCRt A FOR_DEP : 
D4 CMPL NEW_RIGAT_ARG, R : 7829 
5 DD PUSHL  NEW_RIGHT_ARG ; 
08 AC OD PUSHL LEFT_ARG : 
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7E 14 
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04 
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0220 
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#2, DBGSTYPE_CONV 
RQ, LEFT_ARG 


ARG 


LEFT ARG 
as. BBGSTYPE_CONV 
RO, RIGHT 
a 
2(R0), #48 

DBGSGB_LANGUAGE , #3 


#14, 22(RO) 
BGSGB_LANGUAGE, #4 
NEW_LEFT_TYPE, #21 


NEW_RIGHT_TYPE 
EFT_ARG, 

O(RO), (SP) 

N W_LEFT_TYPE 


BoE RIGHT TYPE. #21 


INCOMP_TBL_SIZE 
#°M<R5 RID 


ROUT_TBL_ INDEX 
NEW_RIGHT TYPE 
NEW"LEFT_TYPE 
NEW-RIGHT_TYPE 
NEW-LEFT_ TYPE 
#13, FIND_JOIN 


ROUT_TBL_SIZE 
ROUT TB 
INCOMP_TBL_SIZE 
#°M<R5S,RI> 


K 12 
GEVALOP 16-Sep-1 2:32:25 AX-11 Bliss-32 V4.0-74 
Mb meets 1 90: 32:8? DEBUG. SROIDBGE VAL OD; 1 
1 DD 007 PUSHL #1 
000289CA er DD rhe PUSH #166346 
000000006 00 FB 7A CALLS #3, LIB$S1GNAL 
g oc A 785 93$:  BLBC  BINARY_FLAG, 94$ 
000000006 g j {8 cHPS BGSGB-LANGUAGE, #5 
04 Ag DD 007C¢ PUSHL ROUT_TBL_SIZE 
57 DD O07C¢ PUSHL ROUT~TB 
19 AE DD 007C PUSHL  INCOMP_ BL SIZE 
022 oF BB OO7CA PUSHR #*M<RS-R9> 
A DD 007¢ PUSHL HIER_TBL 
AE 9F 0070 PUSHAB ROUT~TBL_INDEX 
AE 9F 007D PUSHAB NEW_RIGHT_TYPE 
AE 9F 106 PUSHAB NEW LEFT TYPE 
0140 8F B88 0070 PUSHR #*M2R6,RB> 
04 AC OD 9700 PUSHL OPERAT R 
0000v cf oC FB 7e0 CALLS #12, MODIFY PLI_TARGET_TYPE 
08 AC DO OO7ES 94$:  MOVL LeFf AR 
10 04 AO 05 £1 007€9 BBC #5, &(ROS, 95$ 
18 AE DD OO7EE PUSHL NEW_LEFT_TYPE 
3 DD 007F1 PUSHL RO 
9 DD oo7tS PUSHL RO 
ED44 CF FB OO7F CALLS #3, DBGSCONV_TEXT_VALUE 
08 A 0 DO OO7FA MOVL RO, LEFT. 
5 08 AC dO O7re 95$: MOVL  LEFT_ARG, R 
18 AE 36 D1 080 CMPL LERT_TVPE, NEW_LEFT_TYPE 
03 12 00806 BNEQ $ 
0089 3! 00808 BRW 102$ 
7E 14 A3 3C 0080B 96$:  MOVZWL 20(R3), -(SP) 
1C AE DD OOB0F PUSHL NEW LEFT TYPE 
36 DD 00812 PUSHL LEFT_TYP 
0000Vv cf 9 FB 0814 CALLS #3, GET_DATA_LENGTH 
5 0 D OB19 MOVL RO, LENGTH 
59 04 0081C CLRL  $D.CLASS_FLAG 
50 000000006 99 9A OOB1E MOVZBL DBGSGB LANGUAGE. RO 
03 0 91 008 cM RO, # 
03 13 00828 Bea. «=s«é97$ 
08 0 91 0082A CMPBSséRO, #8 
09 ie 0820 BNEQ 38 
09 17 a3 9 08 f 97$: CMPB (R3), #9 
0 13 0 BNEQ 
59 1 00 00 MOVL #1, SD_CLASS_FLAG 
0208 8F BB 00838 98S: PUSHR #*M<R37R9> 
5 DD 9 C PUSHL LEN 
24 AE DD PUSHL NEW_LEFT_TYPE 
0000v cr 94 FB 0 CALLS #4,~MAKE-VAL_DESC 
A 0 p Ag MOVL RO. NEW CEFT 
09 17 AA 91 CM e (neW_CEFT_ARG). #9 
37 12 00840 BNEQ 1 
OA 1 A 1 4f CMPB (R3), #10 
12 1 BEQL $ 
0B 16 AS 93 CMPB (R3), #11 
| of 13 8 a $ 
18 16 As 91 C (R3), #27 
06 13 5F BEQL $ 
1¢ 16 Ad 9 61 CMPB g{R3), #28 
1A 12 00865 BNEQ 0$ 


ee | 


LEE Aaa a ae ee ee eae ea ee ee. ae" se 


ALOP if-Se Sep-1 5 AX-11 Bliss-32 V4.0-7 P 29 
Been 1382 SP:8e:S2 ANSI Shigseze Vea O-285 age $1) 
10 (OA oF z 99S: PUSHAB p GITS : 7958 
0000v CF 6 F CALLS #2, + SCALE F 
C AA 3 MOVB =O é (REW_LEFT_ARG) : 
1D AA 1c «AE 7 MOVB DIGITS, sBheu! CEFT_ARG) + 7959 
16 AA 1¢ i : th nov tig O( NEW LEF T"ARG) : 29 : 
1C AA IC A390 1 1008: MOVE 28(R3), 28( NEW_LEFT_ARG) + 7964 
040 F BB 101$: PUSHR #*M<R3.R + 7967 
0000v cf F A CALLS #2, DBGSTYPE_ CONV : 
A p F OVE R gght¥-t LEFT~ARG Fees 
SA D 3 1038: MOVL 3, NEW LEFT_ARG : 7975 
19 Oc AE CE 97 103$: BLBC BINARY rf4As “104$ + 7980 
50 ie at D6 98 MOVL RIGHT A 6. a : 7982 
10 04 Ad 05 € oF BBC “5, ttROs. 1 4$ : 
14 Ar DD 0 Ab PUSHL NEW_RIGHT TYPE + 7984 
20 bb OOBAG PUSHER : 
ECBE CF a3 i O8A8 CALLS 3, DBGSCONY TEXT_VALUE ; 
05 0c AE E 0884 104$: BLBS BINARY Jus 105$ + 7989 
53 oc Re BO bokeS 1058: Ran alent ane : 7995 
14 AE 38 D1 008BF CMPL RIGHT “HYPE, NEW. RIGHT_TYPE | £7991 
ood $4 09 &3 Hm bE : 
7E 16 AB HH te 106$: MOVZWL 20(R3), -(SP) : 7995 
BO pp ager Bu Hea itare re b 
0000v CF FB 0801 CALLS ao 'G GET DATA. LENGTH : 
- 9 Be bosne Oomt OSB cae ? 7996 
50 000000006 00 9A 008D MOVZBL DBcsca. ORNEUAGE. RO : 7997 
0 0 91 O08E CMPB F 
93 13 008E BEQL rots : 
08 30 1 OBE7 CPE m0, #8 ; 7998 
09 17 aS of ORE 107$: CPB 28083), "9 ; 8001 
59 1 is O8F MOVL ee acho CLASS. FLAG + 8003 
eee OSS aces ete eneri : Boor 
20 AE DD OBFe PUSHL NEW_RIGHT TYPE : 8006 
wt % 06 508 Rove” RO’ MEU RVCHT ang 
09 17 Ag ; 0306 cMPB 23 neu. RIGHT_ARG), #9 : 8011 
OA 16 i of 90 CMB ‘ {R3), #10 : 8019 
0B 16 A a 31 cHPB : {R3), #11 2 8020 
18 16 AS i} 18 CPB : (83), #27 ; 8021 
1C 16 o 9 31 CM é (R3), #28 : 8022 
1A 12 9% BNEQ 0$ : 
1¢ AE 9F 00924 109%: PUSHAB DIGITS : 8025 


i 
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-Sep-1 : 5 
1G-Fep-1964 90:32: $2 DEBUG. SRCJDBGEVALOP.B32;1 1) 
DD 00927 PUSHL R : 
0000v CF 03 FB 009 CALLS #2, + SCALE ; 
ic A 2 9 MOVE oR (REW_RIGHT_ARG) : 
iD OA 1c «OA 9 MOVB DIGITS, 29TNEW_RIGHT_ARG) : 80 5 
4 =A 1¢ A ' } t Ov DIGITS, (NEW-RIGHT—ARG) : 027 
1c A2 1¢ A390 OO93E 1108: move 28(R3) qS(ngu.AIGHT ARG) + 8031 
DD 00943 111$:  PUSHL NEW_RIGH + 8034 
DD 0094 PUSHL R : 
0000v CF FB 0094 CALLS #2, DBGSTYPE cONY ; 
DO 0094¢ MOVL RO. NEW_RIGHT_A : 
11 0094F BRB Mt $ + 7991 
52 9 951 1128: MOVL R3, NEW_RIGHT_ARG : 8058 
1 AF p 954 1138: MOVL ROUT TBC INDER RO + 804 
02 A740 7F 09 8 PUSHAQ 2(ROOT_TBL)CROS : 
53 9 3¢ 95¢ MOVZWL @(SP)+> ROUT INDEX ; 
04 A740 7F 0095F PUSHAG 4 (ROUT. TBL)CROJ + 8042 
54 i 3¢ 0963 VZ2WL  @(SP)+; TYPED INDEX : 
06 A74 F 00966 PUSHAQ 6(ROUT_TBL)CROJ ; 8043 
56, 9E 9A 0096A MOVZBL @(SP)+> RESULT TYPE : 
09 17 AA 91 096p CMPB 23 (NEW. cy gee 9 + 8044 
OA 13 009 BEQL 14$ : 
o¢ A 9 97 BLBC BINARY FLAG, 115$ + 8045 
09 17 A2 91 0097 CMPB (NEW-RIGHT Me, "9 : 
0 if 00978 BNEQ 115$ ; 
59 1 D0 0097D 1148: MOVL #1, SD_CLASS_FLAG + 8047 
08 11 009 BRB 116$ ; 
D4 00982 115$: CLRL $D_CLASS_FLAG + 8049 
33 D4 00984 116$: CLRL LENGTH : 8051 
00000052 =F 33 D4 0986 CPL ROUT INDEX, #82 : 8052 
QOOO0OFE  8F 53 oi O98 chPL ROUT _ INDEX, #254 : 8053 
55 14 AA HS 0998 117$: MOVZWL SO cnet LEFT_ARG), LENGTH 3; 8056 
50 14 Ag ¢ 099 MOVZ2WL 20(NEW-RIGHT_ARGS, RO 3 
55 50 CO 009A ADDL2 RO, LENGTH ; 
3 DS OO9A3 118%:  TSTL LENGTH : 8058 
12 OO9A BNEQ 1$ 3 
01 & D1 009A CMPL RESULT_TYPE, #1 + 8061 
OF 13 0 AA BEQL 119$ F 
22 6 D1 O09AC CMPL RESULT TYPE, #34 + 8062 
OA 13 OO9AF BEQL 1198 F 
29 : pi 981 CMPL RE ULT_TYPE, #41 > 8063 
2 ; eee BEQL 1 3 
2A 26 p 98 cmPL i ULT_TYPE, #42 > 8064 
55 146 AA 3¢ 9BB 119$: MOVZWL 20(NEW_ LEFT TARG) ¢ LENGTH : 8067 
17 OC AE €9 0098 BLBC NARY~ : 8068 
14 AA 14 A 81 3¢ CHPW (NEW “hicnt ARG), 20(NEW_LEFT_ARG) : 8072 
55 4 =A HG OCA MOVZWL ; (NEW_RIGHT_ARG), LENGTH + 8074 
A 11 009¢ BRB 1$ ; 8061 
8 DD 00900 120$: PUSHL RESULT | YPE : 80 
0000v cf FB 90 CALLS #i, DBCSNUA _BYTES : 
5 g D0 009D MOVL RO, LENGTH : 
DD OO9DA 121$:  PUSHL S$D’CLASS_FLAG : 8087 
E 04 0090¢ CLRL. = (SP) > 8084 
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3; Routine Size: 


2694 bytes, 


0000v 4 


000000006 00 
50 


Routine Base: 


4 
000289CA F 
03 


20 =—AE 


DBGSCODE + 0881 


Sep-1 
ige}e Sep-1 


t 1278: 


Bc 27:52:82 — EOEauG. SkcSbace vaLor.00: 1 


CALLS #4, FER CMON, FVPEIE_CHECE 
BL RO, 1278 


#166346 
CALLS #3, LIBSSIGNAL 
RESULT, RO 


beet ALOP 
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BOs 
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13 
16-Sep-1984 00:32:25 YAX=11 BLigs-32 v4.0-74 
ep=1984 81:54:50 SRCIDBGEVALOP.B32; 1 


-Sep-19 DEBUG. 
GLOBAL ROUTINE DBGSGET_SET_TYPEID(TYPEID, PARENT_TYPEID) = 
FUNCTION 
sb routine is a recursive routine to get the parent type for SET data 
ype. 
INPUTS 


PARENT_TYPEID = Parent typeid. (only used for the subrange type). 
TYPEID = Typeid for a given set data. 


OUTPUTS 
Pointer to parent typeid of set data. 


BEGIN 


MAP 
PARENT_TYPEID: REF VECTORC1], 
TYPEID: REF RSTSENTRY; 


CAL 
PARENT 
HIGHPTR 
LOWPTR, 
SIZE; 


TYPE, 


CASE .TYPEIDCRSTSB_FCODE] FROM RSTSK_TYPE_MINIMUM 
TO RSTSKTTYPE~MAXIMUM OF 


SET 
CRSTSK, TYPE_SETI: 
DEGSSTA_TYP.SEI(. TYPE 


TYPEID = DBGSGET_SET_ 
— -TYPEID; 


ID, PARENT TYPE, SIZE); 
TYPEID(.PARENT_TYPE, PARENT_TYPEIDCO)); 


CRSTSK_TYPE_ATOMIC, RSTSK_TYPE_DESCR, RSTSK_TYPE_ENUM): 
RETURN {TYPEID; 


CRSTSK_TYPE_SUBRNG): 


* PARENT_TYPE, LOWPTR, HIGHPTR, SIZE); 
6(.PARENT_TYPE, PARENT_TYPEIDCO)); 


CINRANGE): 
. $DBG_ERROR("DBGEVALOP\DBGS$GET_SET_TYPEID, fcode cannot be set type’); 


RETURN 0; 
END; 


pestis OP 
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$ep-1984 00:32:25 AX-11 Bliss-32 V4.0-74 

att 7 3 82:52 DEBUG. SRC IDBGEVALOP-83 31 
-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


«AMC: ASCII \6DBGEVALOP\<92>\DBGSGET_SET_TYPEID, fco\ 


Page 236 
age 93 


ASCII \de cannot be set type\ 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


.ENTRY DBGSGET_SET_TYPEID, Save R2 : 
UBL #16, SP 3 
OVL  TYPEID, R2 ; 8166 
CASEB © 24(R2). #1, #21 : | 
1$ .WORD 6$-1$,- : 
$-1$.- : 
3$-1$.- ; 
3$-1$,- : 
6$-1$.- : 
6$-1$,- : 
6$-1$.- : 
2$-1$,- : 
4$-1$.- ; 
6$-1$,- : 
6$-1$.- : 
6$-1$.- : 
6$-1$.- : 
6$-1$,- , 
6$-1$.- ' 
6$-1$,- : 
6$-1$.- : 
6$-1$.- : 
6$-15.- : 
6$-1$.- : 
6$-1$ ; 
28: PUSHL_ SP : 8171 
PUSHAB PARENT_TYPE : | 
PUSHL R ; | 
CALLS #3, DBGSSTA_TYP_SET : | 
BRB $ ; 8172. 
3$: MOVL R2, RO > 8177. 
4$: MOVL §R2, @PARENT_TYPEID > 8181 | 
PUSHL SP : 8182. 
PUSHAB HIGHPTR : 
PUSHAB LOWPTR ; 
PUSHAB PARENT_TYPE ; 
PUSHL R ; 
CALLS #5, DBGSSTA_TYP_SUBRNG ; | 
5$: PUSHL PARENT_TYPETD : 8183 
PUSHL PARENT~TYPE ; 
CALLS +e DBGSGET_SET_TYPEID ; 
MOVL RO, TYPEID ; 
RET ; 8184. 


estan” 


3; Routine Size: 


141 bytes, 


00000000° 
00028362 


000000006 00 


Routine Base: 


F 
1 
F 
3 
0 


DBGSCODE + 1607 


ii ftp: 


1986 99:34:32 — EDEauG.SRcSbecevALOP.050; 1 


PUSHAB P.AMC 

PUSHL 

PUSHL #164706 

CALLS #3, LIBSSIGNAL 
te 


F 13 
$r$tp-1986 21:56:84 — EDeeuG. SRcS0BGEVALGP.650; 1 


038 13? GLOBAL ROUTINE DBGSGET_DTYPE (VALDESC) = 
094 195 i FUNCTION 
095 128 ! Given a Value Descriptor. this routine returns a l-byte type code 
p38 19 ! for the descriptor. This type code is ordinarily just taken from 
09 198 ! the dtype field, but if the fcode is not atomic or descriptor, the 
p38 +44 l=-byte type code is DBGSK_MAXIMUM_DTYPE + FCODE. 
00 01 i INPUT 
01 8§ ! VALDESC - A pointer to the value descriptor for which a 
¢ ts } type code is desired. 

05 OUTPUT 

$6 : A type code is returned. 

BEGIN 


P 
VALDESC: REF DBGSVALDESC; 


!' Check for data. Note that record components A.B come back with 
' KIND = TYPCOMP, and these are also data. 


H 1 

; 1 

3 1 

3 1 

; 1 

3 1 

3 1 

: 8 1 

3; 81 1 

; 81 1 

; 81 1 

: 3} 1 

; 81 1 

; 8105 1 

; 8106 1 

3; 8107 8208 

; 8108 8209 

; 8109 8210 

; 8110 8211 

3; 8111 8 \¢ 

3 atte 821 ! 

; 811 8214 ! 

3; 8114 : 15 : 

3; 8115 16 IF .VALDESCCDBG$B_DHDR_KIND] EQL RSTSK_DATA 

3; 8116 821 OR .VALDESCCDBGSB_DHDR_KIND] EQL RSTSK_TYPCOMP 

3; 8117 gsi8 THEN 

; 8118 19 BEGIN 

3; 8119 8220 

: 8120 8221 ! Cobol and Pli picture are treated eiftorent ty, in COBOL, picture 
3 st 1 8558 } is treated as T, in PLI, we want to have FCODE + 200 as the dtype. 
3; 81 : 8224 3 IF .VALDESC CDOBG$B_DHDR_FCODE] EQL RSTSK_TYPE_PICT 

3: 8124 ass? THEN 

3; 8125 8226 4 BEGIN 

3; 8126 8227 4 IF .DBGS$GB_LANGUAGE EQL DBG$K_COBOL 

3; 8127 8228 4 THEN 

3; 8128 534 4 RETURN .VALDESC COBG$B_VALUE_DTYPEJ 

3 $193 8230 4 ELSE 

; 81 8231 4 RETURN .VALDESC COBG$B_DHDR_FCODE) + DBGSK_MAXIMUM_DTYPE; 
3 HEE aS3¢ D; 

; 81 ¢ 823 

3; 813 8234 

; sige 8235 1 The argument is data. Check the fcode. 

3 H $539 IF .VALDESC CDBGSB_DHDR_FCODE) EQL RSTSK_TYPE_ATOMIC 

3; 8137 238 OR .VALDESC CDBG$B_DHDR_FCODE] EQL RSTSK_TYPE_DESCR 

8139 $20 pen 

3; 8140 41 ‘ Special case for ADA fixed point and PL/1 fixed binary. 
: 8141 tg ! These come in as 

3 166 4 : class SD with the BINSCALE bit set. Return a special 
: ‘of re dtype for ‘FIXED’ in this case. 

3 8145 zug IF (. VALDESCCDBG$B_VALUE_CLASS] EQL BSCSK_CLASS_ SD) AND 
: ry 47 4 (. VALDESCCDBG$V_VALUE_FL_BINSCALEJ) 

3: 814 $08 ; HEN 

3; 8148 4 RETURN DSCSK_DTYPE_FIXED 


—_ cS OC 


ifSennt9Re 00:52:25 YaNeNT BLigse32 v4.0-742 Page 237 


; 8149 9 

: : ° ELSE 

; ; § § VAX standard type. 

; ' 4 5 RETURN .VALDESC CDBG$B_VALUE_DTYPE) 

: 8196 37 ELSE 

3 a126 . 33 } Not VAX standard. Represent type as 200 + fcode. 

; 160 6} : RETURN .VALDESC CDBGSB_DHDR_FCODE] + DBGSK_MAXIMUM_DTYPE 

; 168 63 

: \e? : re: ELSE 

: 8165 66 ! Other kinds include RSTSK_ROUTINE, RSTSK_LINE, etc 

; 5168 826 i Some ls ue 2. (BLISS, MATRO) allow operations on code addresses, 
3 Be 8268 i 6-9: + 100 where SUBR is a subroutine. 

; 8168 8269 i In thi A ‘y stems a expect dtype to be ZI or ZEM. 

; 8170 8271 if -VALDESC CDBGSB_DHDR_KIND] EQL RSTSK_ROUTINE 

3; 8171 8 Le OR .VALDESC DBGSB_ DHDR- “KIND EQL RST$K_BLOCK 

4 gi7¢ 827 OR .VALDESC DBG$B_DHDR_KIND EQL RSTSK_LABEL 

3; 817 8274 OR .VALDESC (CDBGSB_DHDR_KIND] EQL RSTSK K-LIN E 

: give : Le Trek ALDESC DBGSB_ DHDR_KIND) EQL RSTSK— ENTRY 

: 8176 8277 

: i 8378 } The type should be ZI or ZEM unless an override was present. 
: 8179 8280 RETURN .VALDESC CDBG$B_VALUE_DTYPE] 

3 319 8281 ia = 

BB BR as 

: 818 8284 ! Any other kind is an error. 

AB BR sec 

; 186 esas 3 $DBG_ERROR (‘DBGEVALOP\DBGSGET_TYPECODE unknown rst kind’); 
3; 8187 8288 3 RETURN 0; 

3; 8188 8289 2 3 

3: 8189 8290 1 END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


24 47 42 464 SC 50 GF 4C 41 56 45 47 42 2 SEDO P.AMD: .ASCII \+DBGEVALOP\<92>\DBGSGET_TYPECODE k \ $ 
BE 75 20 45 44 GF 43 45 50 59 54 Se St 45 i er : setters 
64 6€ 69 68 20 7% 73 5 6E EFS -ASCII \n rst kind\ : 
.PSECT DBGSCODE.NOWRT, SHR, PIC,0 
000¢ 000 LENTRY DBGSGET_DTYPE, Save R2.R3 ; 8193 
50 0 ac -°d6 00008 HOVL -VALDESC7 RO 7 te 


a . . , 


H 13 | 
"er3eb-13be 99:82:32 Hbkeuc. ShcSbace vicar 43,1 Page 335 


pest ys oP 


1 07 AO 9A MOVZBL 7(RO), R1 : 
be ag 3 A CMPB ORT, «#6 : 
93 1 BEQL =s1$ : | 
« aa geese foes 
5 06 Ad 9A ° 14 1$ MOVZBL 6(RO), R : 
. a a i ae i 
03 000000006 90 4 0910 CPB BGSGB_LANGUAGE, #3 ; 8227| 
51 16 Ag 9h 00086 MOVZBL 32(RO), RI : 8231, 
53 2B Ag 4 88 2s MOVAB 23:2), R3 : 
5} 2 D0 000 MOVL 3, RI : 
50 1 oe 900 3$ MOVL R1, RO : 
02 5 1 00037 4$ CMPB sé, «#2 : 8237 
36 13 $09 A BEQL sé : ™ 
03 52 91 0003C¢ CMPBsaR2, #3 : 8238 
OF 12 0003F BNEQ 6$ : 
09 17 AO 91 00041 5$ CMPB g3(RO), "9 + 8246 
29 12 00045 BNEQ 3 : 

24 1€ a0 3 £1 00047 BBC #3, 30(RO), 8$ + 8247 
50 28 oO 9004¢ MOVL #43, RO + 8249 
52 B CO 00050 6$ ADDL2 #43, R2 + 8261 
50 38 DO 00053 MOVL 2, RO : va 

04 00056 RET + 8271 
02 51 91 00057 7$ CMPB RT, #2 : 
14 13 0005A BEQL =s BS : | 
03 51 91 0005¢ CMPB eR, #3 : 8272 
OF 13 0005F BEQL = BS. : 
04 1 91 00061 CMPB RI, #4 : 8273 
OA 13 00064 BEQL so BS : 
05 51 91 00066 CMPBéR1, #5 + 8274 
03 13 00069 BEQL = S$ : 
08 1 91 00068 CMPBséR1, #8 + 8275 
05 12 O06 co 0 so9S : 
50 16 A0 9A 9070 8$ MOVZBL 22(RO), RO : 8280 
00000000' EF oF 0075 9$ PUSHAB P.AMD : 8287 
1 DD 0078 PUSHL ; 
00028362 8F DD zp PUSHL #164706 : 
000000006 00 93 FB 09 8 CALLS #3, LIBSSIGNAL : 
bs A CLRL = RO : 8288 
4 0008C RET > 8290 
3; Routine Size: 141 bytes, Routine Base: DBGSCODE + 1694 
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Ibege 1984 00:32:25 AX-11 Bliss-32 V4.0-74 
=3007 1382 99:32:32 DEBUG. SRCIDBGEVALOP.83 31 
ROUTINE DBGSLANGUAGE _TYPE_CONV (CVT_ROUT_INDEX, VALUE1, VALUE2) = 
i FUNCTION 
: Performs language-specific type conversion on the given 
descriptors, according to the routine index given 
by CVT_ROUT_INDEX. 


INPUTS 


! 
i 
i 
i 
: CVT_ROUT_INDEX = A routine index indicating which operation 
$ is to be performed. The possible values for 
: this index are given in DBGLIB under CVTSK_ 
4 VALUE1 - DEBUG value descriptor for the source 
: VALUE2 - DEBUG value descriptor for the target 
i OUTPUTS 
A pointer to the result descriptor is returned. 
"BEGIN 
P 
VALUE1 : REF DBGS$VALDESC, ' Pointer to the source value descriptor 
VALUE2 : REF DBGSVALDESC; ! Pointer to the target value descriptor 


Case on the routine index. 
CASE = CVT_ROUT _INDEX FROM CVTSK_MIN_ROUT TO CVTSK_MAX_ROUT OF 


CCVTSK_PLI_CvT): 
VACUE2™= PLI_TYPE_CONV(.VALUE1, .VALUE2); 


CCVTSK_COB_PICT): 
BEGIN 
LOCAL 
BUFFER: VECTOR(4, LONG],! Buffer area 
CHANGE SCALE: BYTE, ! Change of scale 
LANGCODE, ! Language code 
PICTPTR: REF VECTORC, BYTE) 
' Pointer to picture representation 
PICTVAL, ! Pointer to anguage specific encoding 
PSCALE: VECTORC2, BYTEJ;! Digits and Scale 


IF .VALUE2CDBGS$B_DHDR_FCODE] NEQ RSTSK_TYPE_PICT 
$DBG_ERROR( "DBGEVALOP\DBGSLANGUAGE_TYPE_CONV, fcode neq pict’): 
DBGSSTA_TYP_PICT( .VALUEZCDBGSL DHOR TYPEID], LANGCODE, PICTPTR, 
CASE -LANGCODE FROM DBGSK_MIN_LANGUAGE TO DBGSK_MAX_LANGUAGE OF 
DBGSK COBOL]: 
CHANGE SCALE = .VALUE1(DBG$B_VALUE_SCA 


H LE) - 
ASHP(CRANGE SCALE, VALUE1(DBG$W vVACUE LENGTH) 
VALUE 1CDBGSL.VALUE_POINTERT, ZREF (0), P 


PSCALECO); 
§caLect), 


lll alll ae we 


13 
WB-Sep-1966 Q0:52:25  YAN-11 Bigs 32 v4.06762 Page 240 


5 B24 g 4 BUFFER): 
; 49 ° EDITPC(PSCALEL1I, BUFFER, .PICTVAL, .VALUE2CDBGSL_VALUE_POINTER)); 
3 8251 “ 
Pr ¢ ; CINRANGE, OUTRANGE): | 
: 8¢93 ; SIGNAL (DBG$_UNIMPLENT) ; 
; 5 § TES; | 
37 END; | 
; § 59 CINRANGE, OUTRANGE): 
: rs : SDBG_ERROR ("DBGEVALOP\DBGSLANGUAGE_TYPE_CONV unknown routine index'); | 
: B26 TES; 
; es $8 RETURN .VALUE2; 
> 8265 365 1 END; : 
| 
-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
24 47 42 46 SC 50 4F 4C 41 56 45 47 42 44 30 OSEFC P.AME: ASCII \ODBGEVALOP\<92>\DBGSLANGUAGE_TYPE_CONV,\ ; 
43 SF 45 50 59 54 SF 45 47 41 55 47 4E 41 ac 05°08 . — on : 
7% 63 69 70 20 71 65 6€ 20 65 64 6F 23 66 @0 O5F1E -ASCII \ fcode neq pict\ : 
24 47 42 44 5C 50 4F 4C 41 56 45 47 42 44 36 O5F 2D P.AMF: ASCII \6DBGEVALOP\<92>\DBGSLANGUAGE_TYPE_CONV \ : 
43 SF 45 50 59 54 SF 45 47 41 55 47 gE 41 ac O5F 3¢ : 
65 6€ 69 74 75 6F 72 20 6E 77 6F 6E 6B 6E 75 O5F4F -ASCII \unknown routine index\ : | 
78 65 64 6€ 69 20 O5FSE : | 
-PSECT DBGSCODE,NOWRT, SHR, PIC,0 
007C 00000 DBGSLANGUAGE_TYPE_CONV: 
-WORB Save R2,R3,R4,R5,R6 3 8291 
56 000000006 00 9 90002 MOV LIBSSIGNAL, R6 F 
5E 20 C2 000 SUBL2 #32, SP : 
01 01 04 AC CF 9000¢ CASEL CVT_ROUT_INDEX, #1, #1 : 8317 
0026 001 0011 1$: . WORD 3-T3.° : 
00000000" EF 9F 00015 PUSHAB P.AMF > 8360 | 
1 DD 00018 PUSHL ; 
00028362 8F DD 9010 PUSHL #164706 ; 
aa 3 FB 90 CALLS #3, LIBSSIGNAL : 
64 11 000 6 BRB 7$ : 
7E 08 AC 7D 00028 28: MOV VALUE, -(SP) > 8321 | 
0000v CF F C CALLS #2, PLI_TYPE_CONV ; 
oc Ac b 1 BOVE RO, VALOE2 : 
54 or AC 00 ; 3$: MOVL VALUE2, R4 : 8335 | 
05 6 AG CMPB 30 s«6 (RG), 5 ; | 
1 13 F $ : 
00000000" 9F 1 P. AME : 8337. 


3; Routine Size: 


af 
tats 


51 
18 60 
00 «BE 


177 bytes ° 


Routine Base: 


1 0D 7 
00028362 F OD 49 
66 3 FB 4F 
C AE OF 46 
4 AE OF 
C AE OF 
08 AL DD OO0SE 
000000006 68 05 FB ai 
0 08 ac CF 00068 
pore Oot6 09 5$ 
tats b18 0 70 
00028800 8F DD 99083 6$ 
66 01 FB 00089 
1E 11 0008C 7$: 
50 08 Ac 09 QOO8E 8$: 
1¢ =6A0 OC AE 83 0009 
14 Ad 51 F8& 0009 
10 AE OD AE Q009F 
10 «AE OD AE 38 000A3 
50 0c AC DO OOOAC 
04 00080 


DBGSCODE + 1721 


ieee 


Be 99:38:32 


EDITPC 
MOVL 
RET 


AX-11 Bliss-32 V4.0-74 
DEBUG. Sh heiée Seaevar P.B 8035: 
#1 
#164706 
#3, LIBSSIGNAL 
PSCALE 
PICTVAL 
CTPT 
LANGCODE 
R4) 


#5, DBGSSTA_TYP_PICT 
: ODE, #0, #TO 


8 
BSSIGNAL 


SORA S EEE aSam 


Metis een CHANGE_SCALE 
CHANGES 20(RO), 324(RO), #0, 
PSCALET} | Ate FER 
es he BUFFER, @PICTVAL, a24(R4) 
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GLOBAL ROUTINE DBGSMAP_DTYPE_CLASS(IN_TYPE, FLAG) = 
i FUNCTI 


1 
| 
' 
' 
} class field must be supplied.) 
ete IN_TYPE 

! e 
FLAG me he 
: instead of S. 
i OUTPUT 
: CLASS is returned. 


ie 
RETUR 


(CASE eIN_TYPE FROM 0 TO DBGSK_MAXIMUM_DTYPE + RSTSK_TYPE_MAXIMUM OF 


EbscsK ths 2): 


SC$K_DTYPE_BU,DSCS$K_DTYPE_WU,DSCSK_D 

C$K_DIVPE Vv. DSCSR_DTYPE_B,DSCSK-~DTYPE-W,DSCSK_DTYP 
DSCSK-DTYPE-Q,DSCSK BTYPE F mitt tt BTYPE 6,0SC$k BTYP 
DSCSK“DTYPE-DC,DSCSR_DTYPE f,DSCSR_DTYPE NU, DSCSK_DTY 
DSCSK“DTYPE-NLO,DSCSR pty VE WR -DSCSK_ pry TYPE. NRO. DSTSK ys + 
DSCSK-DTYPE~Z1 ,DSCSK_ DSCSK-DTYPE-DSC DSCSKe DT YPE. 
DSCSK-DTYPE OU. DSCSK K-DTYP ODscak DTyPe G7DSC$K_D H 
DSC$K-DTYPE =GC DSCs K “DIVE Oe" “DSCSR_ DTYPE_CIT, DStsk Orbe _BPV, 
DSCSK~ =DTYPE DB C$R_DTYPE Sv 

IF . N OScSK _CLASS_SD ELSE DSCSK_CLASS_S; 


CDSCSK_DTYPE th Ae THeh DTYPE_TF ,DSCSK_DTYPE_SVUJ: 
DSCS$R_CLASS_UBS; 
CDSC$K -PTYPE UT DSCSK DTYPE_AC,DSCSK_DTYPE_AZ): 


CDSCSK_DTYPE PJ: ~ 
DSC$R_CLASS_SD; 

COSCSK TYPE FIXEDJ? 
gBSCok. CLASS_SD; 


CINRAN 
OE icsx _CLASS_2; 
COUTRANGE J: 
res) SDBG_ERROR (*DBGEVALOP\DBGSMAP_DTYPE_CLASS"); 
END; 


-PSECT DBGSPLIT,NOWRT, 
P.AMG: .ASCII <29>\DBGEVALOP\<92>\DBGSMAP_DTYPE_CLAS\ ; 
ASCII \S\ 


ifeSep- 1984 00:52:35 


ON 

This routine is used to obtain the class for the given as 
(When DEBUG override type qualifier is given, the class 

in the VMS value descr ptor ? zero, in order to call rasevs _DX_DX, 


Jc. is set that means we take SD as class 


s-32 V4.0-74 Pp 4 
Bac IpBCEVALOo 63951 age 366 


SHR, PIC,0 


———L— 


3.1 


s-32 V4.0-74 
E_CLASS, Sa thin 
765 ay Peet, 


5 fea Otis 
& DEBUG. SRC JDBGEVALOP.B 


SStp-19b6 135435 


m 13 


PIC,0 


SHR, 


«PSECT DBGSCODE ,NOWRT, 


sENTRY DBGSMAP 
IN 


DTYP 


Ee, #0, 


seeeeeceeeeoeseeevpeseeeeeeeeeeee eee eee et keke eke ahah keke aka ake keke aka kaka 
esses eeeseeeseseeseseeseseseseseseseeseseeseseseseseseseseseeseseese eee se seeseeese ees 
PBA LS CDAD AV AA AA CDF AB © GF 9 GF AFA AP OHAA DAVID DB PAA ADP AA F 9 DF A WNMSGMIAM YY 
5 el eh th ee eh eh eth ee ee eh el eh eh ee eh eh eh el ee el eel gel el el eh peek cel eth ee sel eh eee peel ee seh oe each ome aed eel meh ome ome meh ondk anak oma ond 
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vos-000 
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000000006 00 
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; Routine Size: 188 bytes, Routine Base: 
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i ee 


DO 00085 5$: 
D4 00089 68: 
04 00088 


DBGSCODE + 17D2 


3c 30:82:82 — Eoauc. Sacoweevacde.o43-1 
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3 : 13 Bolg } GLOBAL ROUTINE DBGSNUM_BYTES(IN_TYPE) = 

3 18 8414 1 ! FUNCTION 

; 831 8415 1! This routine is used to obtain the number of bytes of storage that 
3; 8 18 seis 1! are needed to hold data of a given dtype. 

; 831 417 1! 

; 8320 £18 1 ! INPUT 

3; 8321 419 1! IN_TYPE - a dtype code 

; 8 § 420 1! 

; 83 8421 1 ! OUTPUT 

3; 8324 84 ¢ 1! The number of bytes of storage needed to hold data of type dtype 
: $352 se : 3 is returned. 

3; 8326 424 1! 

3; 8327 8425 BEGIN 

; 8328 Ha RETURN 

; 5385 7 i {CASE -IN_TYPE FROM 0 TO DBGSK_MAXIMUM_DTYPE + RSTSK_TYPE_MAXIMUM OF 
3 8331 8299 DSCSK_DTYPE_2) : 4; 

; 8332 8430 DSCS$K_DTYPE_B : 13 

; 833 8431 H DSCS$K_DTYPE_8) : 1; 

3; 8334 Re DSCSK_DTYPE_wWuJ ses 

3; 8335 8433 3 DSCSK_DTYPE_WJ : 23 

; 8336 8434 3 DSCSK_DTYPE_LUJ : 4: 

: 8337 8435 3 DSCSK_DTYPE_LJ : 4; 

3 8338 8436 3 DSCS$K_DTYPE_ QUI : 43 

3; 8339 8437 3 DSCSK_DTYPE_QJ : 8; 

3 8340 8438 3 DSC$K-DTYPE_OU) : 16; 

; 8341 8439 3 DSCSK_DTYPE_0J : 16; 

3 tn 8440 ; DSCSK_DTYPE_FJ : 4; 

3; 834 8441 DSCSK_DTYPE_DJ : 8; 

3 8344 8442 3 DSCS$K_DTYPE_GJ : 8; 

3 8345 8443 3 DSCS$K-DTYPE_HJ : 16; 

> 8346 8444 3 DSCSK-DTYPE_FCJ : 8; 

> 8347 8445 3 DSCSK-DTYPE_DC] : 16; 

3; 8348 8446 3 DSCSK_DTYPE_GC) : 16: 

3 8349 8447 3 DSCSK_DTYPE_HCJ : 32: 

; 8350 8448 ; DSCSK_DTYPE_P) : 313 

3; 8351 8449 DSCSK_DTYPE_TFJ y he 

3; 8352 8450 DSCSK_DTYPE_F IXEDJ : 4; 

3; 8353 8451 DBGS$K_DTYPE_ENUM) : 4; 

3 8354 oh 36 DBGS$K_DTYPE_TPTRI : 4; 

3 8355 8453 3 DBGSK~DTYPE—PTRJ : 4; 

3 8356 8454 3 INRANGE J : 64; —! Default to 64 bytes 
; 8357 Stee 3 OUTRANGE) : SDBG_ERROR (‘DBGEVALOP\DBGSNUM_BYTES'); 
; 8358 456 2 TES); 

3; 8359 8457 1 END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
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DBGEVALOP 8 Sep-1984 2:25 AX-11 Bliss-32 V4.0-74 Pa 47 
v04 ~3e0~1984 90: 32: 4 DEBUG. SRC JDBGEVALOP.B32;1 wif 6) 
9$-1$,- : 
9$-1$,- : 
9$-1$,- : 
9$-1$,- : 
9$-1$,- 3 
bt 3 
$-1$,- 3 
9$-1$,- : 
9$-1$,- ; 
9$-1$,- : 
9$-1$,- 3 
9$-1$ 3 
00000000" EF 9F poe PUSHAB P.AMH 3; 8455 
1 DD 000 3 PUSHL #1 : 
00028362 F DD 0009 PUSHL #164706 3 
000000006 00 3 «FB HH CALLS #3, LIBSSIGNAL 3 
04 O00A4 RET : 
50 02 DO OO0AS 2$: MOVL #2, RO 3: 8427 
04 000A8 RET é 
50 08 00 OQO0A9 3$: MOVL #8, RO 3 
04 OOOAC RET é 
50 10 00 OOOAD 4$: MOVL #16, RO 3 
04 00080 RET 3 
50 20 00 seed 5$: MOVL #32, RO ; 
04 00084 RET 3 
50 1F DO 000B5 6$: MOVL #31, RO : 
04 00088 RET ; 
50 01 pO 00089 7$: MOVL #1, RO F 
04 000B8C RET : 
50 04 DO O00BD 8$: MOVL #4, RO 3 
04 000C0 RET 3 
50 40 8F 9A 000C1 9$: MOVZBL #64, RO 3 
04 900C5 RET ; 8457) 


; Routine Size: 198 bytes, Routine Base: DBGSCODE + 188E 
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H ; 1 +28 } GLOBAL ROUTINE DBGSPERFORM_TYPEID_CHECK(TYPE_INDEX, LEFT_ARG, RIGHT_ARG, RESULT) = 
: é 460 1 ! FUNCTION 

; 8364 461 1! This routine performs type check on the arguments according to 

; 4 5 or86 1! the given type index. is routine requires to have left syne, 
: 465 1! and one of the right gt Hoy or result, or both. For non-atomic data 
; 8 8464 1! items, left argument, r ght argument must have TYPEID. For non-atomic 
: 8368 8465 1} data item, if the result’s typeid is zero, then TYPEID is taken from 
3 S390 8466 1! Left argument. (This only should occur after MAKE VAL_DESC is called 
; 8370 8467 1! to create the result value descriptor). TYPEID check will be performed 
; 8371 8468 1! on left argument and right orquaens for non-atomic data types. And/Or 
3 : if: Sf 9 3! TYPEID check will be performed on left argument and result, and also 
: S ie see \ range check is done on the result. 

; 8375 8472 1! This routine is called from DEPOSIT command with left arg (src) and 
; 8376 8475 1! right arg (dst) to perform the typeid check before the DEPOSIT. 

; 8377 8474 1! Then Tt is also called called from DEPOSIT command with left arg 

; e378 sete ! (src) and result (dst) to perform the range check after the BePOSsIT. 
; 8380 8477 1! This routine is called from EV command to have standard left_arg, 

>; 8381 8478 1! or right_arg (operands) and result. 

; tet) 8479 1! 

; 838 8480 1 ! INPUTS 

; 8384 8481 1! TYPE_INDEX - Type check index. 

; 8385 8482 1! 

3; 8386 8485 1! LEFT_ARG - Left argument value descriptor. This argument 

$ tt t4 Hatt: ! : must have typeid for non-atomic data types. 

; 8389 8486 1! RIGHT_ARG - Right arqusent value descriptor. This argument 

; 8390 8487 1! must have typeid for non-atomic data types. This 

; Se eee : argument may not present. 

3 $395 8490 1! RESULT - Result argument value descriptor. This argument 

3; 8394 8491 1! may not present. Its typeid may be zero for non- 

3; 8395 8492 1! atomic data types. 

3; 8396 84935 1! 

3; 8397 8494 1 ! OUTPUTS 

3; 8398 8495 1! Returned status: 

3; 8399 8496 1! 

; 8400 8497 1! TRUE or FALSE 

3 8401 8498 1! 

3 rts 8499 1 

3 840 8500 BEGIN 

3 8404 $20) 

3; 8405 208 

3 8406 850 LEFT_ARG: REF DBGS$VALDESC ! Pointer to left argument 

; 8407 8504 RIGHT_ARG: REF DBGSVALDESC, i Pointer to right argument 

3 oS Bebe RESULT: REF DBGSVALDESC; ! Pointer to rusult argument 

3; 8410 8309 LOCAL 

3 11 8508 DUMMY1, 

3 \¢ 509 DUMMY 2 

3 841 510 LEFT_DTYPE, ' Left arg's data type 

3; 8414 511 LEFT_FCODE ! Left arg's fcode 

> 8415 31 LEFT-TYPEIO: REF RSTSENTRY, i teft arg's typeid 

3: 8416 51 PARERT_TYPE: REF RSTSENTRY, ! Parent typeid for subrange 

3 8417 8514 RESULT_DTYPE, ! Result's data type 


F 14 | 
"973gp-1982 99:82:82 Ebkeuc. Srcloeetvaroe.0%9-1 Pane 


Result's fcode 
Result's typeid 

Right arg's data type 
Right arg's fcode 


as 


6: REF RSTSENTRY, 


: REF RSTSENTRY, 


OYDDADD 
Hes a a PTD 
PMoAAAMH 
smn=z zr TrCCc 
ce Sr" 


R id 
The size of the elements 
TRUE or FALSE 
Make sure left argument is supplied. 
if .LEFT_ARG EQL 0 

$DBG_ERROR( ' DBGEVALOP\DBGSPERFORM_TYPEID_CHECK"); 


MEW" OVONOUSWN OOO 


Make sure left arg has TYPEID for non-atomic data types. 


if NOT ((.LEFT_ARGCDBG$B_DHDR_FCODE] EQL RSTSK_TYPE_ATOMIC) OR 
(. LEF TZARGCDBGS$B_DHDR-FCODE] EQL RSTSK-TYPE-DESCR)) 


EN 
iv -LEFT_ARGCDBGSL_DHDR_TYPEID] EQL 0 
$DBG_ERROR( *DBGEVALOP\DBGSPERFORM_TYPEID_CHECK, no typeid for non-atomic data’); 


WN —OOONAOUNE WN" OVODOnou 


sats 


SEAS 


! If there is right argument, make sure right arg has TYPEID for non-atomic 
data types. (ie, for unary operand). 


: 
i: 
ee os NEQ 0 


PT at ot at ot 
APWN—ODw 


OM 


BEGIN 
IF NOT (¢ RIGHT ARGEDBGSB_DHDR_F CODE) EQL RSTSK_TYPE_ATOMI 
DBGSB-DHDR-FCODE) EQL RSTSK~TYPE-DESCR 


C) OR 
») 
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POPU PUPVPUPU PUSSIES SUISSE STITUTE STITUTE USSSA 
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3 
3 
4 
4 
r 4 
re 4 
8 4 
49 4 
50 4 
2) : “ (.RIGHT_ARG 
38 3 IF jRIGHT_ARGCDBGSL_DHOR_TYPE1D] EQL 0 
22 3 SDBG_ERROR( *DBGEVALOP\DBGSPERFORM_TYPEID_CHECK, no typeid for non-atomic data’); 
57 5 END; 
5 3 
60 57 ! One may only want to perform TYPEID check on the operands. In this 
$1 38 case, there is no need to have result operand. 
es 69 IF .RIGHT_ARG EQL 0 AND .RESULT EQL 0 
65 6¢ $DBG_ERROR( *DBGEVALOP\DBGSPERFORM_TYPEID_CHECK'); 
6 64 
68 65 ! Perform type check. 
69 $6 ! 
70 6 STATUS = TRUE; 
71 68 PARENT_TYPE = 0; 
4 69 CASE .TYPE_INDEX FROM ORTSK_TYPEID_MIN_ROUT TO ORTSK_TYPEID_MAX_ROUT OF 
474 71 ORTSK_TYPEID_ENUM_ENUM): 
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DEBUG. SRC 


BEGIN 
IF .RIGHT_ARG NEQ 0 
THEN 

BEGIN 


presented, this must be one of the sanity check to make 
sure DEPOSIT is possible. Note: DRINK = 1 is valid 
case, so in here we allow this case to be legal. 
(LEFfT_ARG is the source, RIGHT_ARG is the target). 


Fg LEFT AMGLEOEEL DUORTWPE IB NEQ 0 


attmcacacacacace 


BEGIN 
STATUS = TYPEID_CHECK BNUAC LEFT ARGCDBGSL_DHDR_TYPEID 
-RIGHT_ARGCDBGSL_DHDR_TYPEIDI); 
END 
ELSE 
IF .RESULT EQL 0 
THEN 
BEGIN 
IF (.LEFT_ARGCOBGS$B_VALUE_DTYPE] E 
= y LEP TAARG DBG$B_VALUE_DTYPE] E 
STATUS = TRUE 
STATUS = FALSE; 
ND; 


$K_DTYPE_L 
$K"DTYPE-L 


END; 
END; 


! If there is no result, or result is atomic data, or left and 
right TYPEID check failed, returns. 
IF (.RESULT EQL_ 0) OR 

(.RESULTCDBG$B_DHOR_FCODE] EQL RSTSK_TYPE_ATOMIC) OR 
pgeeoih TLngese Hen _F COE 2 EQL RSTSK_TYPE_DESCR) OR 


N 
RETURN .STATUS; 


Perform result TYPEID check and range check. 


CASE .RESULTCDBGS$B_DHDR_FCODE] FROM RSTSK_TYPE_MINIMUM 
TO RSTSKTTYPE"MAXIMUM OF 


SET 
CRSTSK_TYPE_ENUM): 
IF .RESULTCDBGSL_DHDR_TYPEID] EQL 0 


Gbacevacop.033;1 88" 


J ° 


OR 
uv) | 


N 
RESULTCDBGSL_DHDR_TYPEID) = .LEFT_ARGCDBGSL_DHDR_TYPEID); 


vOs-000-” igheoeRe Q0E:35 UMGID Bhigss32 gti 0-702 Page 33) 


3 $ 629 4 IF_.LEFT_ARGCOBGSL_DHDR_TYPEID] NEQ 0 

3 650 4 THEN 

: 631 BEGIN 

; 5 86 ¢ STATUS = TYPEID_CHECK_ENUM(.LEFT ARGCDBGSL_DHDR_TYPEIDJ, 
; 85 se »RESUL FEDBGSe. DHDR_TYPEIBI); 
; 85 634 END 

3; 85358 635 

3; 8539 6 § 4 

: 8540 5 BEGIN 

; 8541 8638 6 IF NOT (.LEFT_ARGCOBGSB_VALUE_DTYPE] EQL DSCS$K_DTYPE_L OR 
3 5206 84 6 nen LEFT ARGLOBGS$B_VALUE-DTYPE] EQL DSCSK K-DTYPE-LU) 
; 8344 He ; STATUS = FALSE; 

3; 8545 94) 4 D; 

3 8246 8643 4 

3 eat4 Het) ? IF NOT .STATUS THEN RETURN .STATUS; 

: 3269 8666 4 peTunn TYPE ID_RANGE_CHECK_ENUM(.LEFT_ARG, .RESULTCDBG$L_DHDR_TYPEIDJ); 
3; 8551 8648 ; 

3 $326 8649 CINRANGE , OUTRANGE): 

3; 855 8650 STATUS = FALSE; 

3; 8554 8651 S; 

; 8555 £63¢ 

3; 8556 8653 2 END; 

3; 8557 8654 

3; 8558 8655 CORTSK_TYPEID_SET_SET): 

3; 8559 8656 BEGIN 

3 8560 8657 LEFT. TYPEID = LEFT ARGCOBGSL DHOR, Type 10; 

3 8561 8658 3 FT-FCODE = LE T_ARG DBGSB_ BHO 

; 8962 8659 LEFT “DTYPE = ARGCDBGSB “VALU oe OY PE; 

3; 856 8660 -CEFT PARGLOBGSE “DHDR_FCODE) EQL Start “TYPE_SET 

3; 8564 61 th N 

3 8565 662 4 BEGIN 

3: 8566 8663 4 LEFT_TYPEID = DBGSGET_SET_TYPEID 

3 8567 8664 4 ~ 1 ARGLDBGSL_DADR TYPEGDO. PARENT_TYPE); 

: o368 8665 4 LEFT “FCODE = .LEFT_TYPEIOLRSTS$B_F CODE); 

3; 8569 8666 4 Cert FCODE EQL”RSTSK_TYPE_ATOMIC 

; 8570 8667 4 

3; 8571 8668 5 NBEGIN 

3 3376 8669 5 DBG$STA_TYP_ATOMIC(.LEFT ~JYPEID, LEFT_DTYP PE SIZE); 

3 857 8670 5 IF »LEFT_ DTYPE EQL DSTSK“BOOL THEN LEFT. DTYPE = DSeSK _DTYPE_TF; 
; 8574 71 4 $ 

: 29 672 4 

: 76 7 END; 

3 8577 B67% 

; 8578 675 IF .RIGHT_ARG NEQ 0 

; 8579 8676 THEN 

; 8580 77 4 BEGIN 

: at 678 4 RIGHT_TYPEID = .RIGHT_ARGCOBGSL DHOR FCODEN, 

3 28¢ 8679 4 RIGHT-FCODE = “RIGHT ARG DEG$B BHD 

3: 858 80 4 RIGHT-DTYPE = .RIGHT ARGLOBGSB “VALU ote 

3 8584 1 «@ IF .RIGHT_ARGCOBG$B_BHOR_FCODE] EQL RSTSK. TYPE _SET 

3 28? § 4 oe on 

3 858 86 RIGHT_TYPEID = DBGSGET_SET_TYPEI 

; 8588 8685 -RIGHT_ARGCOBGS$L_DADR THYPEIDS. PARENT_TYPE); 
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GEVALOP Ib-Se -1984 00:32:25 AX-11 Bliss-32 V4.0-74 
von ~Sep-19 4 9:32:82 DEBUG. SRC IDBGEVALOP.B32; 1 
89 RIGHT_FCODE = .RIGHT_TYPEIDCRST$B_F CODE); 
30 If RIGHT _FCODE EQL ASTSK_TYPE_ATOMIC 
59 BEGIN 
59 DBGS$STA_TYP_ATOMIC(.RIGHT_TYPEID, RIGHT_DTYPE, SIZE); 
$98 IF :RIGAT_DTYPE EGL DSTSK“BOOL THEN RIGAT_DTYPE = DSCSK_DTYPE_TF; 
537 END; 
$399 STATUS = TYPEID_CHECK_SET(.LEFT_TYPEID, .RIGHT_TYPEID, 
-LEFT“FCODE, .RIGHT_FCODE 
1 SLEFTIDTYPE, .RIGHT-DTYPES; 


IF (.RESULT EQL 0) OR 
(.RESULTCDBGS$B_DHDR_FCODE) EQL RS 
( RESULT + ‘ate tea EQL RS 


TSK_TYPE_ATOMIC) OR 
TSKITYPE-DESCR) OR 


SSESEESESE 


DWNOUSWN —OVONOUS WN OOO 


RETURN .STATUS; 


CASE .RESULTCDBG$B_DHDR_FCODE] FROM RSTSK_TYPE_MINIMUM 
TO RSTSK-TYPE"MAXIMUM OF 


tH 2 


SET 
CRSTSK_TYPE_SET): 
BEGIN 


RESULT_FCODE = .RESULTCDBG$B_DHDR_F CODE]: 
RESULT-DTYPE = .RESULTLDBG$B-VALUE_DTYPE); 
IF .RESULTCDBGSL_DHOR_TYPEID] EQL O 


RESULTCDBGSL_DHDR_TYPEID] = .LEFT_ARGCDBGSL_DHDR_TYPEID); 


RESULT _TYPEID = DBGSGET_ SET TYPEID( 

-RESULTCOBGSL eg hla dt} PARENT _TYPE); 
RESULT FCODE = .RESULT-TYPEIDCRSTSB FCODE); 
IF Result _F CODE EQL RSTSK_TYPE_ATOMIC 


MPIMIPIPINIPIPYINID 2 


BEGIN 
DBGSSTA_TYP_ATOMIC(.RESULT_TYPEID, RESULT_DTYPE, SIZE); 
IF ;RESOLT_DTYPE EQL DST$KTBOOL THEN RESUCT_DTYPE = DSCSK_DTYPE_TF; 


7 
4 
08 
09 
10 
V 
1§ 
14 
15 
16 
17 
18 
19 
20 
$) 
35 
24 
25 
26 
e7 
28 
9 
0 
1 
4 


ttt tot ttt ttt ttt 


IAN 


STATUS = TYPEID_CHECK_SET(.LEFT_TYPEID, RESULT TYPEID, 
-LEFT-FCODE, .RESULT_FCODE 


WISE UN— OO 


y oy DY oY oY oY oY ot of ot ot ot ot ot et th hh eh eh nh oh ah ah ah hh ih th teh hh ete he hh Aah ah ah hl 


Be Se Se Os Oe Se Se Be Se Se Se Ge Se FF Se Se Ge BH Ss Se Ge Ge Ge FH Ge FFs Ge Ge Ge Ge Se Ge Se FESS SESS Ss Se Se SF SH Ss See Se Se Se Seas Ge Se FH Ss Se ee 


g “LEFTIDTYPE, .RESULT-DTYPES; 
, : IF NOT .STATUS THEN RETURN .STATUS; 
735 
39 7 ! Set the t peid for subrange. Typeid is set in routine 
i re : DBGSGET_SET_TYPEID. 
g 139 if jPARENT._TYPE NEQ 0 
4 741 IF .PARENT_TYPECRSTSB_FCODE) EQL RST$K_TYPE_SUBRNG 
5 742 THEN 


14 
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H § 743 4 RESULT_TYPEID = .PARENT_TYPE; 

: ss 

; : rs ? | Perform range check. 

; ; 148 4 SELECTONE .RESULT_TYPEIDCRST$B_FCODE) OF | 
: 8688 750 4 RSTSK TYPE SUBRNG): | 
; 5 21 4 RETURN TYPEID_RANGE_CHECK_SUBRNG(.LEFT_ARG, .RESULT_TYPEID); 
ice wo 
; 8658 755 ‘ | 
H +84 7 $ CINRANGE, OUTRANGE): 
: Been q 5 res STATUS = FALSE; 
: Py | 
; 866 87 
3 E te END; | 
3 8665 76 
3 2098 18 ! Typeid pointer typeid check would be always called from DEPOSIT 
; 866 the: ! command with Left_arg (src) and Right_arg (dst). There is no 

3; 8668 765 ! result. It turns out this is not supported. for we have mapped 

3 eH 708 : the TPTR into LU, so there is no typeid check required. 

3 8671 768 CORTSK_TYPEID_TPTR_TPTRI: | 
Be OMe sete 
> 8674 771 END; | 
; ser? AE 

3 867 77 

3 B67? 8774 ! Subrange t peié check would be always called from DEPOSIT 

3; 8678 8775 ' comman wit Left_arg (src) and Right_arg (dst) for typeid 

3; 8679 8776 ' check and also called with Left_arg (Src) and Result (dst) for 

3 Het 1444 : range check. 

; 8682 8779 CORTSK_TYPEID_SUBRNG_SUBRNG): 

; 8684 8781 If RESULT EQL 0 

; Bese B78 BEGIN 

H sree 4 PARENT_TYPE = .RIGHT_ARGCOBGSL_DHDR_TYPEIDJ; 

3; 8688 8785 4 WHILE [PARENT TYPECRSTSB_FCODE] EQL RST$K_TYPE_SUBRNG DO 
3 8689 786 4 DBGSSTA_TYP_SUBRNG(.PARENT_TYPE, PARENT_TYPE, DUMMY1, DUMMY2, SIZE); 
; 91 788 4 SELECTONE .PARENT_TYPECRSTS$B_FCODE) OF | 
; 95 790 RSTSK_TYPE_ENUM): 

3 8695 79 IF .LEFT_ARGCOBGSL_DHOR_TYPEID] NEQ 0 

3 4] 79 THEN 

3: 869 794 6 BEGIN 
; 8698 795 6 STATUS = TYPEID_CHECK_ENUM(.LEFT_ARGCDBGSL_DHDR_TYPEID), | 
3 8699 196 6 -PARENT_TYPE); 
; 8700 797 6 END 
3 8701 a | 3 
3; 8702 7 ELSE 
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S$ep-98e S1:5e:8¢ — EDgauG. SRcSbaGeVALOP.050:1 


BEGIN 
IF NOT 0 EET ARG Dae Se VALUE _pTVeE EQL D 
THEN -LEFT_ARGLOBGSB_VALUE_DTYPE) EQL D 
> STATUS = FALSE; 


hla | L OR 


SCSK_ i 
SC$K~DTYPE-LU) 


END; 
CRSTSK TYPE ATOMIC): 


DBGSSTA_TYP_ATOMIC(.PARENT_TYPE, RESULT_DTYPE, SIZE); 
IF .RESOLT_BTYPE EQL DS T5200, THEN RESULT bi vee = DSCSK_DTYPE_TF; 
IF_.RESULT_DTYPE EQL .LEFT_ARGLOBGS$B_VALUE_BTYPE 


N 
STATUS = TRUE 


ELSE 
STATUS = FALSE; 
ND; 


COTHERWISE): 
TES STATUS = FALSE; 


RETURN .STATUS; 
END 


ELSE 
Eup ;RETURN TYPEID_RANGE CHECK SUBRNG(.LEFT_ARG, .RESULTCDBGSL_DHDR_TYPEID]); 


CINRANGE, OUTRANGE]: 
Tes SDBG_ERROR( *DBGEVALOP\DBGSPERFORM_TYPEID_CHECK, unknown type check index’); 


RETURN .STATUS; 
END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


4C 41 56 45 47 4 44 g SFOA P.AMI: .ASCII \'DBGEVALOP\<92>\DBGSPERFORM_TYPEID_CHEC\ 
== Shao tee 
48 95FBC ASCII \K\ 

4C 41 § 45 47 4&4 44 4) 5FBD P.AMJ: ASCII \ADBGEVALOP\<92>\DBGSPERFORM_TYPEID_CHEC\ 
POSU ARE 8 Be 

79 74 20 6F 6E€ 20 $f $8 FOF ASCII \K, no typeid for non-atomic data\ 

74 61 2D 6E 6F 6E es te 433 

4C 41 28 45 47 42 44& 41 FFF P.AMK: .ASCII \ADBGEVALOP\<92>\DBGSPERFORM_TYPEID_CHEC\ 
PORTA SH ie 

79 74 20 6F 6E 20 $f $8 one -ASCII \K, no typeid for non-atomic data\ 

74 61 2D 6E OF 6€E 7 6030 


Sete Se Se Se Se Se Se See Se Be See Se 


ppt ys oP 


47 
au 


47 
44 


70 


41 
40 


41 
40 


26 


53 
53 


45 47 4&4 
4F ‘3 5 
45 4 
45 47 $3 
4F 46 5 
«Hi 
65 65 8 
28 00000000 
A 00000000 
29 90000000 
a 
00028362 
02 06 
03 06 
08 
23 
00028362 
69 
54 oc 
02 06 
03 06 
08 
65 
00028362 
69 
10 


00A7 


ANIL LSS O 
Woot dule— 
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16-Sep-1984 00:32:25 AX-11 Bliss-32 V4.0-74 Page 255 
~peen 382 99:82:82 = HS Shi ssecevacoe.o3.1 oe 355 
74 3F : 
f i P.AML: .ASCII \"DBGEVALOP\<92>\DBGSPERFORM_TYPEID_CHEC\ ; 
4 SF : | 
48 6 63 <ASCIT \K\ : 
3 60 P.AMM: ASCII \<DBGEVALOP\<92>\DBGSPERFORM_TYPEID_CHEC\ : 
23 (Oe0R3 
4 60 ASCII \K, unknown type check index\ : 
20 0609 ; 
.PSECT DBGSCODE,NOWRT, SHR, PIC,O 
OFFC 00000 -ENTRY DBGSPERFORM_TYPEID CHECK, Save R2,R3,R4,R5,°; 8458 
R6,R7,RB R9=R10 R1 : 
9E 00002 MOVAB DBGSSTA_TYP_ATOMIC, R11 : 
9E 9909 MOVAB PP. AMI | ; 
? 010 MOV LIBSSIGNAL, R9 F 
61 SUBL2 #28, S$ ; 
DO OOOTA MOVL LEFT_ARG, R2 + 8526 
12 OOO1E BNEQ =séod1$; : 
DD 00020 PUSHL R10 + 8528 
DD 90 2 PUSHL ; 
DD 00024 PUSHL #164706 ; 
FB OOO2A CALLS #3, LIBSSIGNAL ; 
91 0002D 1$: CMPB 0s «6 (R2), #2 > 8533 
13 00031 BEQL ; 
91 90033 CMPB 3s (R2), #3 + 8534 
13 00037 BEQL ; 
eaitatd et a — 
OF iat PUSHAB P.AMJ : 8538 
DD 00041 PUSHL : 
DD 00043 PUSHL #164706 ; 
FB B0049 CALLS #3, LIBSSIGNAL 3 
DO 0004C 2$: MOVL RIGHT_ARG, R4 > 8544 
D4 00050 CLRL = R6 ; 
D3 0052 TSTL = RG : 
sie RES : 
4 0098 CPS (R4), #2 + 8547 
91 603 CMPB (R4), #3 + 8548 
1 006 BEQL P 
D5 000 TSTL (R4) > 8550 
12 00067 BNEQ $ F 
9F 00069 PUSHAB P.AMK : 8552 
DD C PUSHL : | 
DD 6F PUSHL #164706 : 
F CALLS #3, LIBSSIGNAL : 
D 77 38: TSTL = RA + 8560 
1 79 BNEG 6 4$ F 
es Sgr dark ptr : 
oF 0086 PUSHAB  P. AML > 8562 
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-Sep- 2:32:25 AX-11 Bliss-32 V4.0-74 Page 257 
Mites oo” 197 300-18e 90:32:82 DEBUG. SRC Sect vac or 263351 B 
$-12$,- : 
37} $,- i | 
-12$,- i 
| $-158.- tea 
* er : 5 | 
oS na H i D 13$: TST Bis) ; ent 
05 12 001 N ~~ 
5 (R2), 8(R3) : 
_— BB OAS Be Boles aus; ert BERS? $035 
. ‘ 13 0013A BEQL 6=-«15$ Paces 
A3 DD 0013¢ PUSHL  8(R3) ; 863 
8 A2 0D 61 F PUSHL  8(R2) + 8632 | 
0000v CF FB 0014 CALLS ae. TYPE ID_CHECK_ENUM : 
gf g D8 HP HOVL RO, STATUS ; 5629 
08 16 | byce 15$: CHP g2(R2), #8 ; 8638 | 
04 16 g 93 00139 CPB ¢2(R2), ry ; 8639 
7 ii Et CLRL STATUS : 8641, 
- af a015h wre oe femes 
08 028} dD 0160 17$: PUSHL B(R3) ; ns 
0000v CF 35 FB 0165 CALLS SS, TYPE 1D_RANGE_CHECK_ENUM ; 
$ : 0657 
: ), LEFT_TYPEID : 
4 8 A BR Soler _ MOVIBL ecRs} LEFT FCODE ; 8658 
9A O98 MOVZBL oss EFT_DTYPE : 86 
85 06 A 91 00177 CPB 6(R2), 08 ; 8660 
BS RES | exe piper i: 
FB2B CCF = 5 PB bias CALLS ae, DBGSGET_SET_TYPEID : 
: 4 58 o188 MOVZBL Been Tyeeios LEFT_FCODE > 8665 
88 7 a Dt ttta CAPE LEFT _FCODE, v2 . ; 8666 
4 AE OF BOI96 BUSHAB SITE 8669 
be AE 9F 00197 PUSHAB LEFT_DTYPE : : 
5 DD ttt PUSHL LEFT TYPEID ; 
6B 03 FB 0019C CALLS #3, BBGSSTA_TYP_ATOMIC S ss70 
1 0019F CMPL FT_DTYPE, #158 2 | 
seaeeccatied at 6 1A BNEG 5s “ | 
6 D6 OO1A8 MovL §=— #40, LEFT_DTYPE oe, 
5 ge E9 OO1AB 19$:  BLBC  R6, 218 : 8675 
53 8 AS 00 OIA MOVL 8(R4), RIGHT_TYPEID : 8678 
56 6 Ab BA 1B MOVZBL 6(R4). RIGHT -FCODE : 8679 
4 9A 001 ROVIBL 32(R4S, RIGHT. DIYPE ; 
" OB PB (R4), #8 > 8681 
4 6 $3 33 Ooler SNEs S08 
8A BSL Pusan: ey. rvr ets 
7 CF = s Pe ie? CALLS a DBGSGET_SET_TYPEID : 
oe $3 Hi 5 Stee MOVL RO. RIGHT TYPEID sees F san | 
6 18 «OA BR O1CF MOVZBL 24(RIGHT_TYPEID), RIGHT_ ; | 
| 
| 
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Nd 


on~ kt -_- o ro - uN MM TO ~ MTN OO 
um OO OO SslC HC OC; EE oe eed Yee EP 
a o wm we o oo © wo co wmcac ccc 
a ®e*e *e ee 6 6 ee Fe 16 86 Fe Fe Fe Fe Fe te Sl la a i tte ee eed ed eh eh eh eh eh ed ed ee a ee 
Ld 
a 
- 
me 
| nr 
} re) 
~@ 
| 
oa. 
*o 
wou 
>< 
| > vw o 
~w _ — 
mo = - Ud ive) 
| ‘@ o w wa a 
na = ” a> > 
| or qo 4 or -o 
aed nm ww el Lae - 
| -—-a ~ a= a (=) mu 8 mw 
i @w ® >= > w od L od wo 
j bd Lod _- = N = n> 
Oo . a ts & oO = 1) ~ - 
-2 w use eT ww Gt Sad pe TT] ow ef t 
‘oa a Qwr-a +-AWOA—Aa4%O we Mw ceo we 
<w © —-Aan>- F>AOOwoe w mM Wet ttre ereereereeeeee ee ee wae rr ONS 
za w te ed Or > Vea wre RS ®R Mes eeeesee see eee ese ese ees ac aor Aaa 
oe ae ar-OOQ Oru sad «+ 5 APAAAAPAAAAAAAAAAAAAAAAAA . ‘ow 
a ‘ioreki we Me>ee-— . § DD DANANQINQINQININICICQINCICININISIOLNONM _— —_— du 
_— -—-— OF —- &-o Fe AS A 2A NNNNNNNANNNNNNANNNNNNAINND AOn AZO 
x= wrt = =e rv 2 oOo Oo rFOrteeceepeepeeoeeeeereereeese tie OfO NWO 
OANYOS ORMOULVCEZU + OATATATTAHARHAHHAHKHAAAAAPAAAAAAAAPAAATAT~ AHA = - 
Vt tS Ft IO TT SIEM AIIM MIPIM MMMM be OF SOS Ow ES UO 
ON SVMS RSVR ES EB ISB EL SMO O D OO CUIDNICUICUICICUIRQUICUICUIRQUIRQUICUICUICUICUICUICUCUICUCUCUCU MP OCNOTNOA. On a 
NS 
ee es <= aM aI Ie IW aa oa pee) 
or JjOTtIETItIjOstrtrtrtrtostsIjswOIOIvwe a NN IO ITT 
Om 82WMMM 306.WP>MNMNwN I> > o0c0aaMaMOo e3>>F—wW>SMunu> 
ESI DD<A=ZSODIDD DDI OOw sz wswiacs +jcZoomZzor ra<o 
TTF Y4MAGAAYVYMEAAAAAYETOCOVIAOw <: YVOtEs-@OFAAVF 
on 
-— 
‘8 
aa oe oe oe ef of oe 
Wee ad ee A PAAR a 
nm So - N mw Oo 
‘6 N N ™N cur N 
_— MODOWOMMBO-Sl-O Ou Sl DOK MVPOVK OKO OD je er PA by ov ow ther ty 7m 
SOCCOWWWWe eee re LOOOCOC RK RK KKK NNMM TT Fochatannre orm 
SS INICIO ~ 
DSDOOQOQOOCOCOCOCOOSOOOCOOOSCOOOOCOOOOoOoOoOoOSo SooQooooooooo 
be ne a ne ae ae we we we ww wow alo lololololelolelolololor—) Soooooooooo 
—Ne& OD- VO OOODODOOM— M— MA u we << ENWO us ODO 
OOO O44 O- OBOOOMAU COOK —O— WO OMA O—- AC Ou80 
OO WWII a ~F DLW OP- OO VNIO VOWONOVYVYVLVYLUYU Mu QOOMMWOWO 
We LINO BON E BMOMOM Es EMaMMN Eoucucucucucu wmode codcaeconm 
ooooco - 
ooocooo So 
wo wv wTwvw © o o oo oO oOo doc 
-oO So oo oO - o& & So o-Oo Oro 
- 
oOo 
N Ss [vey VeeD VN MM MK VVeVVLYv ale] So wen 
Oo co << ven oO Oo Mo CCUCUCUCUC we = ww 
oooooo 
- Coooooo 
wT oS co co ~ 
o o _- So w 
So < 
o be 


0000009E 


MYVVUY 


15 
DBGEVALOP Ib-8e ~1984 00:32:25  YAX=11 Bligs-32 v4.0-74 Page 259 
vores =Sep-1986 21:56:54 — EpgeuG. Ske Seer VALOP.693; 1 19° 87) 


53 18 Ad 9A 0027 MOVZBL 24(RESULT_TYPEID), RESULT _FCODE : 8721) 
02 23 D1 3 CMPL RESULT _FCODE, #2 * : 133 
19 12 0027A BNEG 278 : 
146 AE OF OO27C PUSHAB SIZE + 8725 
1C AE 9F 0027F PUSHAB RESULT_DTYPE ; | 
54 DD be PUSHL RESULT-TYPEID : 
68 03 FB 00 CALLS #3, DBGS$STA_TYP_ATOMIC ; 
0000009E  8F 18 AE D| 0 87 CPL R SULT _DTYPE, #158 ; 8726, 
18 AE on 8 0291 MOVL #40, RESULT_DTYPE : | 
18 AE DD 00295 27$:  PUSHL RESULT DTYPE > 8731) 
04 AF DD 00 98 PUSHL LEFT_DTYP : | 
53 DD 00298 PUSHL RESUCT_FCODE + 8730) 
0110 HH BB 0029D PUSHR “M<R4,RB> 3; 8729 
7 DD 00 Al PUSHL LEFT_TYPEID : 
0000v CF 06 FB 002A3 CALLS #6, TYPEID_CHECK_SET ; 
55 50 DO 0028 MOVL RO. STATUS : 
Al 55 E9 002AB BLBC STATUS, 24$ : 8733 | 
50 1b AE 00 00 A MOVL PARENT_TYPE, RO ; 8739. 
09 13 0028 BEQL ; 
09 18 AO 91 00284 CMPB g4(RO), "9 ; 8741) 
03 12 00288 BNEQ 8$ : 
54 50 00 O0gBA MOVL RO, RESULT_TYPEID : 8743 
50 18 A& 9A 002BD 28$:  MOVZBL 24(RESULT_TYPEID), RO + 8748 | 
09 50 91 002C1 CMPB RO, #9 + 8750 
89 12 0024 BNEQ 24 : 
54 of 002C6 PUSHL RESULT_TYPEID ; 8751 
008E 31 002¢8 BRW : 
50 10 AC 09 002CB 29$:  MOVL _—— RESULT, RO : 8781 
03 13 OO02CF BEQL 0$ ; 
0082 31 00201 BRW 7$ F 
10 AE 08 A& DO 002D4 30$: MOVL #$8(R4), PARENT TYPE + 8784 
50 10 AE DO 00209 31$:  MOVL PARENT_TYPE, RO : 8785 
09 18 AO 91 002DD CMPB 4(RO)> #9 F 
17 12 00261 NEQ : 
146 AE 9F 002E3 PUSHAB SIZE : 8786 
OC AE OF 00 £6 PUSHAB DUMMY2 ; | 
14 AE 9F 002E9 PUSHAB DUMMY1 : 
1C AE 9F OOZEC PUSHAB PARENT_TYPE : 
50 DD oocEr PUSHL : 
000000006 00 05 FB 002F1 CALLS #5, DBGS$STA_TYP_SUBRNG : 
DF 11 O02F8 BRB 1 F 
50 10 AE 00 OO2FA 32$:  #MOVL  PARENT_TYPE, RO ; 8788 
51 18 AO 9A OOF MOVZBL 24(RO)7 RI ; 
04 51 91 0030 CMPB RI, #4 : 8790 | 
23 12 0030 BNEQ 35§ : 
08 A2 D5 00307 TSTL 8(R2) : 8792. 
OF 13 O030A BEQL 3$ 3 
50 od 0030C PUSHL RO : 8796 | 
08 A2 OD oF PUSHL 8(R2) ; 8795 | 
0000v CF 9 FB 1 CALLS #2, TYPEID_CHECK_ENUM : | 
55 D 16 MOVL RO, STATUS ; 
46 11 00319 BRB $ : 8792. 
08 16 A2 91 00318 33$:  CMPB g{R2), #8 : 8801 | 
04 16 RD OF B08 at ta2). 86 : gg02 
3A (13 6355 BEQL $§ : 


02 


68 
QOO0009E BF 


18 =A 

18 AE 16 A2 0 
55 

0000v CF 

50 


869 bytes, 


; Routine Size: 


Routine Base: 


+ 3 
os 


18 


08 


OWS QOVONOF Our PMT 
MMOD -AO@LMWwoOMmMmnca—Ww 


uw 
ww 
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we oun 
rer O2aouw 
oo 


3] 0327 ; 

1 0032A 

12 D 

ar r 

bb 
ne 

D1 0033A 

is 0342 

DO 00344 

ED 00348 36$: 
1 4f 

D 51 

11 54 

DD 00356 Hes 
DD 00359 38$: 
FB 00358 

04 te 

DO 00361 39$: 
04 00364 


DBGSCODE + 1954 


oe 
ono 


4 2:25 AX-11 Bliss-32 v4. 
7198¢ 90: HA ‘32 DEBUG.SR bi aSecevacoe 68 B3>; 
BRw 23$ 

CMPB ORT, #2 

BNEQ 34§ 

PUSHAB SIZE 

PUSHAB RESULT_DTYPE 

PUSHL R 

CALLS #3, DBGSSTA TYP hjomic 

CMPL RESUL T_DTYPE, 

BNEG 363 

MOVL #40, RESULT DTYPE 

CMPZ7V #0 (R2), RESULT_DTYPE 
BNEQ 34$ 

MOVL #1, STATUS 

BRB 39§ 

PUSHL (RO) 

PUSHL RS 

CALLS #2, TYPEID_RANGE_CHECK_SUBRNG 
MOVL STATUS, RO 

RET 


Se Be Se Se Be Be Be Se Be Be Be Se 


nei 


804 
808 


8810 


8811. 
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3 e38 ! ROUTINE DBGSTYPE_CONV (VALUE1, VALUE2) = 

3 § 1 ! FUNCTION 

3 40 1! This routine is the top-level type converter for DEBUG. It takes a 
: 41 1! source value descriptor and a target value descriptor. It first 

$ Hk 1! checks go re are | gn ny pmo ddd type conversion 

; S & rules to use. If not, it call anguage-independent routine 

; 44 1! DBGSCOVER Dx “oh. 

3 845 1! 

: 1 1 ! INPUTS 

; tne 4 : VALUE1 = Pointer to a value descriptor to be type-converted. 

$ Bay : VALUE2 = Pointer to the target value descriptor. 

; 8851 1 ! OUTPUTS 

; th ,: A pointer to a value descriptor is returned. The target descriptor 
3 th : is filled in sith the result of the conversion. 

3 8855 BEGIN 

; 5e28 

; 885 

3 O¢ 8858 VALUE1: REF DBGSVALDESC, 

3 8859 VALUE2: REF DBGSVALDESC: 

3; 8764 8860 

3; 8765 8861 CAL 

; 8766 rat CVT_TBL_ENTRY: TYPE_CVTSENTRY, ! An entry in oe Type Conversion Table 
3; 8767 886 CvT lYPE PAIR: TYPESPAIR, i Data Type P 

: 8768 8864 STATUS; ! Return status from Lib$cvt_dx_dx 
3; 8769 8865 

3; 8770 8866 

; 14a 944 H perrere Type Conversion indicated by Language Dependent Type Conversion 
e . a 

3; 877 8869 ' (Left A, a in Type Pair = The type we want to convert into, 

3; 8774 8870 ! Right = From type) 

3; 8775 8871 ! 

3; 8776 887 if .cvT _TBL NEQ TABLEBASE 

3; 8777 887 THEN. 

; 8778 8874 BEGIN 

3; 8779 8875 CVT_TYPE “PAIRS LE fox aed + = ,VALUE2CDBG$B_VALUE_DTYPE]-: 

; 8780 8876 CVT TYPE “PAIRCB$_RIG = VALUE 1LDBGSB_ VALUE_DTYPE); 

3; 8781 887 INC Mm tt "your ze 

3; 878 8878 4 gt 

3; 878 8879 4 CVT_TBL_ENTRY = .CVT_TBL ape 

3; 87 8880 4 IF [CVT-TBL Q THEN EXITLOOP; 

3; 8785 8881 5 IF (.CVT_TBC_ENTRYLTYPE_CVTS$B_LOWER is? or DSCSK_DTYPE_ANY A 

; 8786 B88¢ 4 .CVT~TBL- E-CVT$B_HIGH EQL sive TYPE PAIRCBS. RIGHT_TYPE]) OR 
3; 8787 8885 5 (.CVT_TBL_ENTRY ite SSS HIGHER, 11Pe EQL D R DTYPE ANY 

3; 8788 884 4 -CVT_TBL_ENTRYLTYPE_CVTS$B_LOWER EQL evi sre PATREBS LEFT ner OR 
3; 8789 885 5 (.CVT~TBL-ENTRYCTYPE_CVTSwW_MAP itty EQL ew _TYPE_PAIRCWS_TYPE_PAIR 
3; 8790 8 4 HEN 

3; 8791 8 BEGIN 

3; 879 8 IF .CVT_TBL_ENTRYCTYPE_CVT$W_ROUT] NEQ 0 

3; 879 889 THEN 

3: 8794 890 DBGSLANGUAGE _TYPE_CONV ( SVT. TBL_ENTRYCTYPE_CVT$W_ROUT), 
3; 8795 891 LUE1> .VALUE2) 

; £36 RETURN .VALUE2; 

3 95 4 END; 


rae 36) 
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7 
LOP .B32; 
END; 
END; 
' Just in case, the there was no entry foyre in Fh for depositing 
a dtype into PICT type. We treated PICT a 


iF .VALUE2CDBGSB_VALUE prveg) EQL DBG$K _DTYPE PICT AND 
. VALUE 2CDBGSB_DHDR_FCODE) EQL RSTSK_TYPE_PICT 


VALUE2CDBGSB_VALUE_DTYPE] = DSCSK_DTYPE_T; 
VALUE2 = DBGSCOVER_DX_DX (.VALUE1, .VALUE2, .CVT_ROUND_FLAG); 
RETURN .VALUE2; 
END; 


O1FC 00000 DBGSTYPE_CONV: 
- WORD 


58 00000000" EF 9E 00002 MOVAB CVT_TBL, R& 
50 00000000' EF 9E 00009 MOVAB  TABLEBASE, RO 
50 68 01 00010 CMPL cy VT_TBL, RO 
69 13 90013 BEQL 5* 
54 08 AC pO 00015 MOVL VALUE2, R 
08 16 A& FO 00019 INSV  22(R4), a8, #8, CVT_TYPE_PAIR 
55 04 A DO O001F MOVL yALugT 
56 16 A 90 00023 MOVB 22(R5), CVT_TYPE_PAIR 
57 04 a8 00 00027 MOVL CVT_TBL_SIZE, R7 
52 01 CE 00028 MNEGL #1," 
4A 11 O002E BRB 6$ 
53 00 B84¢ 09 00030 1$: MOVL  aCVT_TBLCIJ, CVT_TBL_ENTRY 
47 13 00035 BEQL «= 7$ 
FF 8F 53 91 00037 CMPB CVT_TBL_ENTRY, #255 
OA 12 0058 BNEQ te 
50 6 9A 00030 MOVZBL CVT_TYPE_PAIR, RO 
08 08 FD 9940 CMP ZV 48,748, CVT_TBL_ENTRY, RO 
08 08 FD 0047 2$: CMPZ2V #8, #8, CVT_TBL_ENTRY, #255 
OA 005 BNEQ 
50 9A 005 MOV ZBL CVT_TBL ENTRY, RO 
08 0 FB 05 CMPZV #8,°48, CVT _TYPE PAIR, RO 
g O09A BEQL 
56 3 Bi Oot 3$: CMPW CVT_TBL_ENTRY, CVT_TYPE_PAIR 
19 12 0005F BNEQ 
10 10 FD 0061 4$: CMPZ2V #16, #16, CVT_TBL_ENTRY, #0 
E 9066 BEQL «6sSS$ 
4 pd 000 PUSHL 4 
5 DD 0006A PUSHL 5 
10 19 EF 006¢ EXTZV #16, #16, CVT_TBL_ENTRY, -<(SP) 
F9OF2 gf 9 FB 1 CALLS +e + DBGSLANGUAGE_ TYPE _CON NV 
0 4 p i: 5$ MOVL 
4 0007 RET 
52 57 F2 OOO7A 6$ AOBLSS R7, I, 1% 
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; Routine Size: 


166 bytes, 


ac 3 7E 7$: MOVL ALU ee RO 3 8901. 
A CMPB (RO) * #48 ; | 
OA } BNEQ 3 
4 ; : anes aa a5 ; 8902) 
16 ge Og MOVE «#14, 22(RO) ? 8906 | 
A DD 8$ PUSHL sy" “ROUND _ FLAG g 906 | 
50 DD 9 PUSHL $ 
A OD 9 PUSHL LUE1 é 
000000006 00 0 FB 9A CALLS a3 DBGSCOVER_DX_DX : 
08 AC D0 O00A1 MOVL RO. VALUE : 
04 000A5 RET : 8909 
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ROUTINE CONV_TEXT_PACK_VALUE(VAL_DESC) = 


i FUNCTION 
This routine is used to convert the text string to pack decimal. 


i 
i 
i INPUTS 

: VAL DESC - Unconverted constant. 
; 

i 


OUTPUTS 
A converted value descriptor is returned. 
BEGIN 
P 
VAL_DESC: REF DBGSVALDESC; 


LOCAL 
DOT: REF VECTORC,BYTE), 
END_PTR: REF VECTORE BYTE] 

B AVAL DESC: REF DBGSVALDESC, 


P_VAL_DESC = MAKE_VAL_DESC(DSCS$K_DTYPE_P, 
DBGSNOM_BYTES(DSCSK_DTYPE_P), 


TRUE); 


DOT = CHSFIND_CH(.VAL_DESCCDBGSW_VALUE_LENGTH] 
zVALDESCCDBGSL VALUE POINTERS, 


A string of digits has no '.'. 
if .DOT EQL 0 
THEN 


—E=0 
P_VAL_DESCCDBG$W_VALUE_LENGTH] = .VAL_DE 
DESCCDBG$B-VALUE-DIGITS] = .VAL~DE 


nn 


CCDBGSW_VALUE_LENGTH]; 
CCDBGS$W~VALUE~LENGTHJ: 


A string of digits has ‘.’. 

oa 
END_PTR = .VAL_DESCCDBGSL_VALUE_POINTER] + .VAL_DESCCDBG$W_VALUE_LENGTH] - 1; 
SCACE = .END_PTR = .DOT; 


! Fill in the digits and fill in scaling factor after the 
; type conversion. 


if Fenn19Re Q0:52:25  YaN-HH BLiggcaz ven0e742 Page 365 
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: 967 P_VAL_DESCC(DBG$W_VALUE_LENGTH] = .VAL_DESCCDBG$W_VALUE_LENGTH) = 1; 
: $63 a t= BESEtbBese- VALUE “DIGIT 18 = ~P_VAL_DESCCDBGSW_VALOE_LENGTH]; 
; 970 
; ug are } Fix up the original value descriptor. 
; 887 97 if .DOT LSS .END_PTR 
; $599 974 . | 
3 880 379 CHSMOVE(.SCALE, .DOT+1, .DOT); 
; 888 97 END_PTR = .END_PTR AND %X'00" | 
; 97 VAL “DESCCDBGSW~ VALUE_LENGTH -P_VAL_DESCCDBGS$W_VALUE_LENGTH); 
3 8885 980 
3 rrr Convert the string to decimal. 
: 8889 8384 VAL_DESCCDBG$B_VALUE TYPE) = = DScSK DTYPE_T; 
3 8890 985 VAL ~DESCCDBG$W~ VALUE ~ TOKENC 
: 8891 8986 P_VAL_DESC = DBGSTYPE CONV(. Ovi pest, :P_VAL_DESC); 
3 889 987 P- VAL et Seer VALUES SCALE] ="=. SCALE; 
: 889 98 RETURN .P_VAL_DESC; 
; 8989 1 END; 
O3FC 00000 CONV_TEXT_PACK_VALUE: 
.QORD ~ Save R2,R3,R4,R5,R6,R7,RB,R9 : 8910 
01 pd 00002 #1 : 8935 
7E 15 7D 00004 MOVQ = #21, : 8936 
FB23. CF 01 FB 00007 CALLS #1, * DBGSNUM_BYTES F 
50 DD 0000C PUSHL RO F 
15 DD 0000 PUSHL #21 : 8935 
0000v CF 04 FB 0001 CALLS + MAKE vat DESC F 
58 50 D 9901 MOVL no: DESC ; 
57 04 Ac 0018 MOVL DES at. 3: 8940 
32 14 A? 3C 9001¢ MOVZWL Z0(R ) Ro" ; 
18 87 5 A 000 LOCC #46, R2, a24(R7) ; 
12 000 BNEQ 1$ : 
D4 000 CLRL sR ; 
51 DS 00029 1$: TSTL DOT > 8947 
¢ 1 9 B BNEQ ; 
D D CLRL = SCAL : 8950 
14 AB : 8 O2F MOVW R » 20(P_VAL_DESC) : 8951 
1D AB 00 ; MOVB 9(PVAL"DESC) : 895 
26 11 000 BRB > 894 
56 52 18 A? C1 00039 2s: ADDL3 et R2, R6 : 8960 
56 D7 000 F DECL. END_PTR : 
59 56 51 C3 0004 SUBL DoT, ND, PTR. vita LE : 8961 
16 AB 5 01 A ie SUBW L_DESC) : 8967 
iD OA 16 ABO 49 MOVB aot. vAL “Best. itt P_VAL_DESC) : 896 
‘ ce es fae 
61 01 «al 33 28 00 MOVC3 SCALE 14001). (DOT) : 897 
6 D4 00058 38: CLRL —sCEND_PfR ; 897 
| 


3; 8895 


; Routine Size: 


121 bytes, 


8990 1 
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Routine Base: 


AX-11 Bliss-32 V4.0-7 
DEBUG. SRC JDBGEVALOP .B32; 


7 20(R7) 


(SP) 
#2. DBGSTYPE CONV 
sche: “etrey VAL _DESC) 


o o | 
De APOE, heed ar | 


a 
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ROUTINE GET_DATA_LENGTH(FROM_DTYPE, TO_DTYPE, FROM_LENGTH) = 
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This routine trys to guess the length of the TO_DTYPE given 
FROM_DTYPE. Sometimes, it is not obivious what is the Length 
for the TO_DTYPE, for example, L --> V. This routine firs 
will fill Tn the normal Length then will correct the Length 
by the Language rules. Note: (anquage code in here is no 
tested for most of the cases are isolated. 


INPUTS 
FROM_DTYPE - Source dtype. 
TO_DTYPE - Target dtype. 
FROM_LENGTH - Source dtype length. 
OUTPUTS 
TO_LENGTH (target dtype length) is returned. 
BEGIN 
LOCAL 
TO_LENGTH; ! Target dtype length 


! Fill im the Length by normal way. Just 
the length correctly later on, we still 


TO_LENGTH = DBGSNUM_BYTES(.TO_DTYPE); 


in case, we did not update 
have a length. 


: Update the Length by specified rules. 
CASE. 10_DTYPE FROM DBGSK_MINIMUM_DTYPE TO DBGSK_MAXIMUM_DTYPE OF 


! If we are converting to FIXED then we use the length from 
: the source descriptor. 


CDSCS$K_DTYPE_FIXEDJ: 
TOLENGTA = .FROM_LENGTH; 


CDSCSK_DTYPE_V, DSCSK_DTYPE_vu): 


CASE gy nen Powe FROM DSCSK_DTYPE_LOWEST TO DSCSK_DTYPE_HIGHEST OF 


DSCSK_DTYPE_V, DSCSK_DTYPE vu): 
TO"LENGTA = .FROM-LENGTA; 
CDSCSK~DIYPE 8): 


“LENGTA = 7; 
CDSCSK“DTYPE W): 
LENGTA = 15; 


CDSCSK-DTYPE_P): 


il — el —_ 


Berne ae wYc') BLigscB2 V4a0-742 raoe 268 


-FROM_LENGTH * 332) + 99) / 100; 
31,°.10 O_LENGTH); 


E 
a - 31; 
= 
COUTR Anse d: 


BEG 
Oe haat tides EQL DBGSK_DTYPE_PICT 
TO_LENGTH = 31 


ELSE 
pep, OSA ERROR C"DBGEVALOP\GET _DATA_LENGTH"); 
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CDSCSK DIYPE.T, DSCSK_DTYPE_VTI: 
CASE .FROM_DTYPE FROM DSCSK_DTYPE_LOWEST TO DSCSK_DTYPE_HIGHEST OF 
DSCSK_DTYPE V, DSCSK_OTYPE VU, DSCSK_DTYPE_T, DSC$K_DTYPE_VTJ: 
T .FROM-LENGTA; 
CDsc$K- DIYPE 8): 


S 
co 
seeese 


980 ape 


TO-LENGTA = 15; 
CDSCSK_DTYPE FA: 


“LENGT 
CDSCSK- DIVE 5: pgisx. DTYPE_G): 


“LENGTA 
CDSC$K_ =DTVPE H): 
oe E 42; 
cosck~ ~bTYPE. P 
LENGTA = .FROM_LENGTH + 5; 
LINRANGE OUTRANGE J: 


N 

IF .FROM_DTYPE EQL DBGSK_DTYPE_PICT 
TO_LENGTH = .FROM_LENGTH 

ELS 


Ba ERROR DOSE VALOPNGET _DATA_LENSTN") s 


TES; 
RETURN .TO_LENGTH; 
END; 
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Sep-1984 00: AX-11 BLiss-32 V40- Page 272 
if-te seer H She SP:ez:82 | PARLE Shiggese eae 28s. al 15; 


peet ys oP 


52 A 00 1% 17$: MOVL #42, TO_LENGTH : 9082 
52 oC aC 5 C1 00178 18$: ADDL3 #5, FROM LENGTH, TO_LENGTH + 9084 
5 2 00 186 19$: MOVL TO_LENGTA, : 3105 


; Routine Size: 388 bytes, Routine Base: DBGSCODE + 1DD8 


; 9011 9105 1 


pe eater ie rile: SB gees ca ae & We SOC oP ee Ce 


D 
DBGEVALOP 16-Sep-1984 00:32:25 AX-11 Bliss-32 V4.0-74 Page 273 
von ser Ti 9 32:32 DEBUG. SRC IDBGEVALOP..B3 31 . (41) 
; 9013 91 1 ROUTINE GET_SCALE(VAL_DESC, DIGITS) = 
; 9014 3109 7! bi if 
; 9015 3198 1 ! FUNCTION 
; Bog 91 1! This routine takes Floating-Point value descriptor data, convert its 
; 901 9110 1! value to text string, get the exponent and number of digits information 
; aos 9111 1! from the text string. Then we get the scaling factor from these 
; 901 aii¢ 2 two numbers. 
; 9020 9115 1! 
; 9021 91146 1°! INPUT 
3 oS § aa ! VAL_DESC - Floating-Point value descriptor. 
: 9024 3117 ,! DIGITS - Address of the number of the digits. 
; 9025 9116 1! 
; 90 § 9119 1 ! OUTPUT 
: 90 3is9 Zz The scaling factor is returned. 
; 9028 9121 1! 
; 4594 3156 1 
; 9030 91 BEGIN 
; 9031 9124 
; pit} 9125 MAP 
; 903 9126 DIGITS: REF VECTOR(1], ! Address of the number of the 
; 9034 9127 ! digits. 
3 pai $4 3is8 VAL_DESC: REF DBGSVALDESC; ! Pointer to value descriptor. 
: 9037 3180 LOCAL 
; 9038 9131 BUFFER: VECTORC50, BYTE) ! Text string buffer 
; 9039 9i3¢ 2 DESCRIPTOR: BLOCK(8, BYTE), i Vax standard descriptor. 
; 9040 9133 2 DIGITS_IN_FRACT, ! The number of digits in the fraction 
3 9041 9134 2 D_PTR: REF VECTORC,BYTE), ' Pointer to text ey at the ‘.° 
3 +94 4 9135 2 E_FLAG, ' Flag set to indicate the E-format 
; 904 9136 2 , ! text string has ‘'E' 
3 9044 9137 2 E_PTR: REF VECTORC BYTE), ! Pointer to text eer iae at E position 
3 9045 9138 2 EXPONENT, ! The exponent of the floating-point 
3 9046 9139 § SCALE ! The ocah ine factor | 
3; 9047 9140 STATUS; ! Return status from Library routine 
; 9048 9141 2 
3: 9049 aise 2 
; 9050 91435 2 ' Set up the descriptor. 
; 9051 9144 2 : 
5 424 9145 2 DESCRIPTORCDSCS$B_CLASS] = DSCSK_CLASS_S; 
; 905 9146 DESCR RCOSCSB_DTYPE) = DSCSK_DTYPE_T; 
3: 9054 9147 DESCRIPTORCDSC$W_LENGTH] = 50; 
3; 9055 9148 DESCRIPTORCDSCSA_POINTER] = BUFFER; 
; 2026 9149 
: 905 9150 
: p43: ae} : Convert Floating-Point data to E formatted text string. 
; 9060 3138 CASE ; VAL _DESCCDBG$B_VALUE_DTYPE] FROM DSCSK_DTYPE_F TC DSCSK_DTYPE_H OF 
3 3066 3132 CDSCSK DIVE. DSCSK_DTYPE_DJ: 
: 494 3137 CASE sVAL DESCCDBGSB_VALUE DTYPE) FROM DSCSK_DTYPE_F TO DSCSK_DTYPE_D OF 

3; 9066 3139 DSCSK_DTYPE_FJ: 

: 9067 9160 DIGITS_IN_FRACT = 7; 

; 9068 9161 COSCS$K_DTYPE Bj: 

3; 9069 9162 DIGITS_IN_FRACT = 16; 


16 
GEVALOP 188 -1984 00:32:25 Ax-11 iss- 4.0-74 7 
mit 4 90: 32:8? Ot Se ectvacoe Poge ft) 
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Sea 


} Locate the '.". For example: 0.48€+06. 
D_PTR = CHSFIND_CH(50, BUFFER, %C°."); 


! Convert the next few characters into integer (+/- and digits). 


' 
DESCRIPTOR([DSC$W_LENGTH] = BUFFER[49] - .E_PTR + 1; 
DESCRIPTOR[DSCSA_POINTER) = .E£ PTR: : 

STATUS = OTSSCVT TLL (DESCRIPTOR EXPONENT) ; 

IF NOT .STATUS TREN”SDBG_ERROR('OBGEVALOP\GET_SCALE, OTSSCVT_TI_L error’); 


DIGITSCO) = .€_PTR = .D_PTR - 1; 


; 9070 9163 TES; 

gi ge 

5 Oho7 3188 ; In here, the exoonent digits is default to 2. 

: 9075 916 STATUS = FORSCVT_D_TE(.VAL_DESCCDBG$L_VALUE_POINTER], RIPTOR, 
: 9076 $169 -DIGITS_IN_FRACT); ef Ree SONNE « SERA 

: $07 3171 ss 

; $079 g17¢ CDSCSK DTYPE_G): 

; 9081 917% DIGITS_IN_FRACT = 15; 

3 9082 9175 STATUS = FORSCVT_G TE (VAL DESCCDBGSL_VALUE POINTER], DESCRIPTOR, 
3 908 9176 -DIGITS_IN_FRACT, 0, 07 3); 

Sos 3198 "i 

: goa 3180 tag etpat 

; 9088 9181 DIGITS_IN_FRACT = 33; 

3 9089 9182 STATUS~= FORSCVT_H_TE(.VAL_DESCCOBGSL_VALUE_POINTER], DESCRIPTOR, 
; 9090 918 -DIGITS_IN_FRACT, 0, 07 4); 

; p44 eee END; 

: 909 9186 CINRANGE, OUTRANGE): 

: st 44 14 $DBG_ERROR('DBGEVALOP\GET_SCALE, not floating-point data'); 
te Oe pace 

3 9098 $193 g IF NOT .STATUS THEN $DBG_ERROR('DBGEVALOP\GET_SCALE, FORSCVT_x_yE error’); 
: 91 919 

7: 91 9194 $ ' Locate ‘+’ or ‘'="", 

3: 91 9195 ! (E+nn or E-nn for exp. <= 99), (+#nnn or -nnn for exp. <=999) 

: ; ab } is the standard Fortran E-format. 

: 91 9198 E_FLAG = CHSFIND_CH(50, BUFFER, %C°E'); 

7 91 9199 E-PTR = CHSFIND_CH(50, BUFFER, %C'+'); 

3; 91 asoe IF .E_PTR EQL 0 

: 91 9201 THEN 

; 91 9208 E_PTR = CHSFIND_CH(50, BUFFER, %C'-"); 

3 $204 IF .E_PTR EQL 0 THEN SDBG_ERROR("DBGEVALOP\GET_SCALE, not E-format expected"); 
; : 

§ g 

3 9 

3 g 

3 9 
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3 : 
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: 9127 9 IF .E_FLAG NEG. 0. THEN DIGITS{O] = .DIGITSCO] = 1; 
: 91 8 9 ° SCALE sy . EXPONE .bI TSRHUNE 
: 91 9 g RETURN .SCALE: 
: 9130 9 
: 9131 9224 END; 
.PSECT DBGSPLIT,NOWRT, SHR, PIC,O 
SF 54 45 47 SC SO GF 4C 41 56 45 47 42 46 g 060D5 P.AMP: .ASCII \,DBGEVALOP\<92>\GET_SCALE, not floating\ ; 
61 6F 6¢ 20 74 6F 6E 20 2¢ 45 4 41 43 ; O60E4 : 
61 76 61 66 20 7% 6 69 6F 3 p Oeor? «ASCII \;point : 
SF 54 45 47 «5C 39 4F 4C 41 56 45 47 42 44 6102 P.AMQ: ASCII BE VAL OPN <92>\GET SCALE, FORSCVT_x_yE\ : 
SF 54 (56 43 24 «652 «4F 646 «620 «(2 «645 «4C 641 «643 «53 «(06111 : 
45 79 SF 78 06120 : 
72 6F 7 ig 65 20 06124 eASCII \ error\ : 
SF 546 45 47 SC SO 4F 4C 41 56 45 47 42 44 2A 0612A P.AMR: ASCII \*DBGEVALOP\<92>\GET_SCALE, not E-format\ ; 
6F 66 20 45 20 74 6F 6E 20 2¢ 45 4c 41 43 53 06139 ; 
74 61 6D 72 06148 : 
64 65 74 63 65 7 18 65 20 0614¢ ASCII \ expected\ : 
SF 54 45 47 SC 50 4F 4C 41 56 45 47 42 4&4 27 06155 P.AMS: .ASCII \DBGEVALOP\<92>\GET_ SCALE, OTSSCVT_TI_LL\ : 
SF 54 56 43 (24 «53 «(54 GF «020 «(2C «645 «(4C «641 «43 «53 «(06164 ; 
4C SF 49 54 06173 ; 
72 6F 72 72 #65 20 06177 eASCII \ error\ 3 
.PSECT DBGSCODE,NOWRT, SHR, PIC,0 
OOFC 00000 GET_SCALE: 
WORD Save R2,R3,R4,R5,R6,R7 : 9106 
57 00000000' EF 9E 00002 MOVAB =P. AMP : 
6 000000006 00 9€ 00009 MOVAB C{BSs {chat R6 : 
5E £0 AE 9E 00010 MOVAB 4(SP), § ; 
04 AE 010E00 8F DO 00014 MOVL  #17694770, DESCRIPTOR + 9147 
08 AE OC AE 9E 0001C MOVAB BL FER DESCRIPTOR+4 : 9148 
y 04 AC 00 90021 MOVL  VAL_DESC : 9153 
12 OA 16 Ag BF 00025 CASEB otRDS. #10, #18 ; 
0026 0026 0035 003 000¢A 1$: <WORD 3$-1$,- ; 
0026 0026 0026 0026 00032 $-1$.- : 
0026 0026 0026 0026 0003A $-1$.- ; 
0026 0026 00 4 0026 90042 $-1$.- : 
006F 00 0026 004A $-1$.- ; 
$-1$.- : 
$-1$.- ; 
$-1$.- : 
$-1$.- : 
$-1$,- 3 
$-1$.- : 
$-1$.- ; 
$-1$,- 3 
$-1$,- 3 
$-1$,- 3 
$-1$.- ; 
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-5ep-1984 6:26 DEBUG. SRCJDBGEVALOP.B32;1 
§s-1$,- : 
i : 
7 vO 09 28: PUSHL R : 9187 
1 DD PUSHL #1 : 
00028362 8F DD 000 PUSHL #164706 : 
46 ; FB 280 CALLS #3, LIBSSIGNAL ; 
16 A2 &8F 6 SF 3$: CASEB (R2), #10, #1 + 9157 
4 oW - e® g 
0004 064 4$ ORD s§ Rg 
07 00 00068 5S: MOVL #7, DIGITS_IN_FRACT : 9160 
03 11 000 BRB 7$ : 
DO 00060 $$: MOVL #16, DIGITS_IN_FRACT t 9162 
50 0D 00070 7$: PUSHL DIGITS IN FRACT + 9169 
08 AE 9F 0007 PUSHAB DESCRIPTOR + 9168 
18 Ad dD 907 PUSHL  24(R2) : 
000000006 00 ee FB 0078 CALLS i, FORSCVT_D_TE ; 
50 F pO 9081 8$: OVL #15, DIGITS_IN_FRACT + 9174 
03 DD 000 PUSHL #3 + 9175 
43 ¢ 0086 CLRQ. = =( SP) : 
50 DD 000 PUSHL DIGITS_IN FRACT : 9176 
14 AE 9F OOOBA PUSHAB DESCRIPTOR + 9175 
18 A2 DD 0008D PUSHL  24(R2) : 
000000006 00 06 FB 00090 CALLS #6, FORSCVT_G_TE : 
16 11 00097 BRB log : 
50 1 D0 00099 98: MOVL #33, DIGITS_IN_FRACT : 9181 
4 DD 0009C¢ PUSHL #6 : 9182 
7E 7C O009E CLRQ. = =( SP) : 
50 DD 000A0 PUSHL DIGITS_IN FRACT > 9183 
14 AE OF 000A2 PUSHAB DESCRIPTOR + 9182 
18 Ad DD 900A PUSHL  24(R2) : 
000000006 09 06 FB OO0A8 CALLS #6, FORSCVT_H_TE ; 
5 DO OOOAF 10S: VL —- RO. STAT ; 
0E 53 34 00082 11$: BLBS STATUS, 12S > 9191 
2D A? SF 0008 PUSHAB P. ; 
01 DD 00088 PUSHL : 
00028%*2 8F DD OOOBA PUSHL #164706 ; 
66 3 FB 999¢ CALLS #3, LIBS$SIGNAL ; 
OC AE 32 ao 3A 00C3 128: LOCC #69, #50, BUFFER : 9198 
92 2 000¢9 BNEQ 13$ : 
1 04 000CB CLRL sR : 
55 1 p0 OOCD 13$: MOVL RI, € ELAG : 
OC AE 2 B 3A 0000 Locc 6©6«._:«#43,, #50, BUFFER : 9199 
2 12 0000 BNEQ 14$ ; 
51 04 000D CLRL sR : 
52 51 09 0009 14$:  MOVL 1, E_PTR ; 
1¢ 12 000DC BNEG =-16$ : 9200 
OC AE 32 3A 000D LOCC #45, #50, BUFFER : 9202 
if O0E BNEQ 15$ : 
D4 OO0E CLRL R1 2 
52 1 09 OO0E7 158: VL 1, E_PTR F 
3 12 OOOEA NEQ 168 + 9204 
55 a? OF OODEC PUSHAB P.AMR ; 
1 DD ef PUSHL #1 ; 
00028362 8F DD OO00F1 PUSHL #164706 ; 
46 03 FB 000F7 CALLS #3, LIBSSIGNAL ; 


sess 
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Mivetit g7908-1 38% 90:32:52 DEBUG. SRC Seat vatoe.035;1 9 41) 
OC AE 32 3A FA 16% LOCC #46, #50, BUFFER : 9209 
é FF BNEQ 17 3 
D4 00101 CLAL ; 
4 1 Bd 103 17%: VL =—-R1, 9_PTR : 
9 3 A 1 MOV BUFFER+49, RO + 9214 
C2 0010A SUBL : 
04 AE 0 Al 001 ADDWS «= #7, _RO, DESCRIPTOR ; 
08 AE 2 00 001 MOVL  €_PTR, DESCRIPTOR+4 + 9215 
E bb 116 PUSHL SP + 9216 
08 AE 9F 0011 SHAB DESCRIPTOR : 
000000006 9 FB 0011 CALLS #2, OTSSCVT_TI_L : 
1 MOVL STATUS : 
1 BLBS STATUS, 18$ : 9217 
0080 F 001 PUSHAB P.AMS ; 
1 0D 0012¢ PUSHL # : 
00028362 BF DD 0012e PUSHL #164706 3 
4 03 Fe 01 CALLS #3, LIBSSIGNAL : 
51 2 4 3 0137 18$: SUBL3 D_PTR, E_PTR, R1 : 9219 
08 &C FF OAT é 001 MOVAB =-T(R15, SDIGITS ; 
55 DS 0014 TSTL €_FLAG + 9220 
03 13 00142 BEQL «6=s«a1:9$ : 
08 BC b7 00144 DECL apiGits ; 
50 6E 08 BC C3 00147 19$: SUBL3 @DIGITS, EXPONENT, SCALE + 9221 
04 0014¢ RET + 9226 


; Routine Size: 333 bytes, Routine Base: DBGSCODE + 1F5C 


; 9132 9225 1 
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; 91 1 ROUTINE FIND_JOIN (LEFT_TYPE, RIGHT TYPE 

; 3 5 ; : : = eu cert fvPe, NEW_RIGHT_TYPE, ROUT_INDEX, 

; 91 9 3 1 HIER fBL, HIER_TBL_SIZE 

: 91 9230 1 INCOMP TOL, INCOMP-TBL SIZE, 

; 91 9231 1 ROUT_TBL, ROUT_TBL“SIZE) = 

3; 9140 g § 1 

; 9141 S 

; aig 9234 1 ! FUNCTION 

3; 914 9235 1! Given a pair of types and a Type Hierarchy Graph, this routine attempts 
; 9146 9 $ 1; to determine what conversions should be done on the types. It does 

3: 9145 y 1! this by finding the yoin" of the two nodes in the graph. Usually, 

3 ees 9236 1! this will just be a path from the lower type to the higher type; e.g., 
3; 914 9239 1! if gM el is added to float, float is the higher type, and a path 

3; 9148 9240 1! from integer to float is found, so the integer is converted to float. 
3; 9149 9241 1! There | a cases where both are converted to a higher type; e.g., 
; 9150 9 tg 1! in FORTRAN, if FLOAT COMPLEX is added to D_FLOAT, both are promoted 
3 g123 9245 1! to D_FLOAT COMPLEX. 

; 91 ¢ 9244 1! 

3; 915 9245 1! INPUTS 

3: 9154 9246 1! HIER_TBL - Hier. Table 

; 9155 9247 1! HIER TBL_SIZE = Hier. Table Size 

: 9156 9248 1! INCOMP_ TBI - Incomp. Tabl 

3; 9157 HT 1? INCOMP_TBL_S!IZE = Incomp. Table Size 

; 9158 9250 1! ROUT_TEL - Rout. Table 

3; 9159 9251 1! ROUT_TBL_SIZE = Rout. Table Size 

3 9160 3536 1! LEFT TYPE - The type of the left operand. 

3: 9161 9253 1! RIGHT_TYPE - The type of the right operand. 

: 3166 9254 1! NEW_LEFT_TYPE = The address in which to place the new type of the 
; 916 9255 1! left ogerend. 

3: 9164 9 28 ;: NEW_RIGHT_TYPE = The address in which to place the new type of the 
3; 9165 9257 1! right operand. 

3; 9166 9258 1! ROUT_INDEX - An address in which to fill _in a routine index from 
3; 9167 9259 1! - the Operator Routine Table 

3; 9168 9260 1! DEPTH - Depth of recursion. DBGSEVAL_LANG_OPERATOR porace 
3; 9169 ase) 1! in zero, and this routine passes Lae PTH when 
3: 9170 9 6¢ 1! it calls itself, so it can keep track of the 
; 9171 9265 1! recursion depth. 

3 ai? 9508 : : MIN - The minimum length conversion path so far. 

3 9174 9266 1 ! OUTPUTS 

3; 9175 9267 1! Routine Value: If a set of conversions to legal types was found. 

3; 917 9268 1! the length of the paths through the conversion graph is returned. 

3; 917 344 1: Otherwise, MAX_DEPTH is returned. (l.e., a set of conversions were 

3; 9178 9270 1! found if che return value is less than MAX_DEPTH. The reason for 

3 9179 9271 1! doing it this way (instead of just returning TRUE/FALSE) is so that 
3 3ie0 ag 76 : } a recursive method can be used to find the minimal path). 

3 at 4 9274 1! The fot Loving output parameters are filled in: 

3; 918 9275 1! NEW_LEFT_TYPE = The type to convert the left operand to. 

3 4 9 6 1! NEW-RIGHT TYPE = The type fo convert the right operand to. 

3; 9185 9277 1! ROUT_INDER - An index into the Operator Routine Table, pointing 
3 at 3 9278 1! to a legal operator on the new types 

3; 91 9279 1! 

3; 91 9280 1 

3; 91 9281 § BEGIN 

3; 9190 9282 
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HIER TBL: REF VECTOR 


OOO 
Wn 


C,WORD) ! Pointer to a Type Hierarchy 
INCOMP_TBL: REF VECTOR L,WORDJ, | Pointer to a Type Incompat 
ROUT_TBL: REF ORTSTABLE; ! Pointer to an Operator Rout 


LOCAL 
HIER_TBL_ENTRY : TYPE_GRAPHSENTRY, 


INCOMP_TBL_ENTRY: TYPE_GRAPHSENTRY, 
LEFT_DONE: BYTE, 
LEFT_FOUND: BYTE, 


lense 
at ty Table 
ne Table 


An entry in the Type Hierarchy 
Table. 


4  _t 


Sees o res SSEl SER 


An entry in the Type 
Incompatibility Table 

Flag saying we have searched 
recursively from left sone 

A et sexta whether we found 
LEFT_TY 


000 
FRANLSSSLSARA 


PE in the Type 
Hierarchy Table. 
Index of the first occurence 


ono 
oo 


; 9 
3 4 3 
39 i 
SY 
ig ; 
. ! 
39 9 ' 
3; 9 9 } 
39 g ' 
39 9 ! 
3; 9 9 ’ 
3; 9 9 ! 
3; 9 9 ! 
3% 9 ! 
3:9 9 LEFT_INDEX, i 
3 $55 1 feebtwtatteay rat 
3 ' e rarc eS 
39 9301 LEFT POTENTIAL_TYPE, } Potential new left type. 
3 9210 9306 POTENTIAL_DEPTA, ! Possible minimum Length path 
ee sate, ar peas teottes baste telly 
39 8 9305 REVERSE TYPES: TYPESPAIR, i A type pair 
: 9214 9206 RIGHT_DONE: BYTE, ! Flag saying we have searched 
; 1? 3 recurs vely from the 
; 3 ! r son. 
3 9217 3505 RIGHT_FOUND: BYTE, ' A flag’ saying whether we found 
: 3519 331 Lo. Gierslae tate 
3 ! erarc able. 
3; 9220 oaig RIGHT_INDEX, ! Index of the first occurence 
et | StetteitsLeh, able 
3 ! e Hierarc able 
3 $238 9315 RIGHT_POTENTIAL_TYPE, : Potential new right type 
; 4 $e aei8 TYPES: TYPESPAIR; ! A type pair. 
: 955 9318 
3; 9227 9319 ! First see if the given type pair is legal, by searching the Operator 
3; 9228 3350 ! Routine Table. If it is, then the length of the path to a legal 
; $3 9 335) type pair is zero and this is what we return. 
'; 9231 93 , TYPES (BS_LEFT_TYPE] = .LEFT_ TYPE; 
; 9238 9324 TYPES CBS"RIGHT TYPE) = .RIGAT TYPE; 
3: 923 9325 INCR I FROM O TO .ROUT_TBL dt - 100 
39 oF § IF .TYPES EQL .ROUT_TBC C.1, ORTSW_TYPES] 
3; 9235 33 THEN 
3; F % 3 EGIN 
39 93 -NEW_LEFT TYPE = .LEFT TYPE; 
3 9238 9330 “NEW-RIGHT TYPE = .RIGAT_TYPE; 
3; 9239 9331 eROUT_INDER = .J; 
3: 9240 ] § RETURN .DEPTH; 
: 3503 9834 a 
: 9 rk 9335 ! Terminate further searching if minimum so far is already smaller 
3 3 rf 4 § ; than potential paths. 
: 9 46 9338 IF .DEPTH + 1 GEQ .MIN 
3 924 9339 THEN 
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RETURN .MAX_DEPTH; 


Check for incompatibility of the given types. 
REVERSE_TYPES ([B$_LEFT_TYPE] = .RIGHT_TYPE; 
REVERSE-TYPES [BS-RIGHT TYPE) = .LEFT-TYPE; 
IF gINCOMP_TBL NEG TABLEBASE 
INCR FROM 0 TO .INCOMP_TBL_SIZE - 1 DO 
OMP_TBL_ENTRY = .INCOMP_TBL C.1); : 
INCOMP-TBL_ENTRY EQL O7THEN £X1 fLoop: 
TYPES EQL TINCOMP_TBL_ENTRY CTYPE_GRAPHSW_BOTH_TYPES) 


EN 
RETURN .MAX_DEPTH; 
IF_.REVERSE_TYPES EQL’.INCOMP_TBL_ENTRY CTYPE_GRAPHSW_BOTH_TYPES) 


T 
RETURN .MAX_DEPTH; 
ND; 


DOOONAUSWIN OOO 


wre 


Check for no Hierarchy Table being present. 


nO PAPAIN S £ at ete 


WO ODONOAUS AR $"OOONOULSWN—O 


9 . 
’ If .HIER_TBL EQL TABLEBASE 
; ¢ 366 RETURN .MAX_DEPTH; 
4 308 ! Find the first edges emanating from LEFT_TYPE and RIGHT_TYPE 
é a4 in the Type Hierarchy Table. 
369 LEFT_FOUND = FALSE; 
a 370 RIGHT_FOUND = FALSE; 
9 371 INCR T _FRON 0 TO .HIER_TBL_SIZE - 1 DO 
281 tg HIER_TBL_ENTRY = .HIER_TBL C.1]; 
oe 74 IF .AIER-TBL_ENTRY EQL~O THEN EXITLOOP; 
3 39 iF NOT CEF TFOUND 
85 377 IF HIER_TBL_ENTRY CTYPE_GRAPHSB_LOWER_TYPE) EQL .LEFT_TYPE 
$6 38 BEGIN 
88 380 LEFT_FOUND = TRUE; 
89 381 LEFT-INDEX = .1; 
356 END; 
; IF NOT .RIGHT_FOUND 
3 


1 ttER TOL Ente CTYPE_GRAPHSB_LOWER_TYPE] EQL .RIGHT_TYPE 


BEGIN 
RIGHT_FOUND = TRUE; 
RIGHT_INDEX = .1I; 


END; 
adhe dead AND .RIGHT_FOUND THEN EXITLOOP; 


SSBLEA 
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! Now do the recursive calls on the edges emanating out of the given 
: types. As a heuristic to speed up the search, start with the lower 
! Ke 
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1 
; LEFT_DONE = FALSE; 
RIGHT_DONE = FALSE, 
vA WHILE" TRUE DO 
BEGIN 
IF . LEFT_FOUND 
HEN 
BEGIN 


! Only do the recursive call from here if + ae we have already 
: searched from the right son, or if the left index comes before 
} the right index. 


If RIGHT DONE OR .LEFT_INDEX LEQ .RIGHT_INDEX 


2 
oO 
= 


BESIN 
LEFT_DONE = TRUE; 
Loop through all the successors to LEFT_TYPE. 


HIER_TBL_ENTRY = .HIER_TBL C.LEFT_INDEX]; 
WHILE HIER TBL_ENTRY CTYPE_GRAPHSB_LOWER_TYPEJ EQL .LEFT_TYPE DO 


POTENTIAL_DEPTH = FIND_JOIN ( 
-HIER_TBL_ENTRY CTYPE_GRAPHSB_HIGHER_TYPE), 


RIGHT TYPE 
EFT _POTENTIAL_TYPE 
IGHT_POTENTIAC_TYPE, 
OTENTIAL_INDEX; 
+.DEPTH, 
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-ROUT_TBL, .ROUT_TBL-SIZE); 


T 
E 
D 
N 
ER TBL, .HIER_TBL_SIZE 

COMP TBL, .INCOMP~TBL SIZE, 
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! If we have a new minimum Length path, then record 
' all the relevant information. 


i) 
' 
: 
i -POTENTIAL_DEPTH LSS .MIN 
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PAA ES DID AA AAD SIND DD ADD DAA DD DAA AAO TTI BB EE PII 
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EN 

g BEGIN 

9 MIN = .POTENTIAL_DEPTH; 

9347 3 -NEW_LEFT_TYPE =".LEFT POTENTIAL_TYPE; 
g 8 4 -NEW-RIGHT TYPE = .RIGAT_POTENTIAL_TYPE; 
9 4 -ROUT_INDER = .POTENTIAL~INDEX; 

9381 d m 

3 26 ? : Set up for next time around Loop. 

9354 4 LEFT_INDEX = .LEFT_INDEX + 1; 

4 2? rt SEER. TOL ENTRY = ,AIER_TBL C.LEFT_INDEX); 
aH ae 

9359 5 P 

9360 5 

9361 5 


IF .RIGHT_FOUND 
THEN 


- 
a 
* 
° 
. 
° 
o 
° 
. 
* 
© 
6 
. 
° 
. 
° 
eo 
° 
- 
° 
° 
. 
© 
. 
o 
2 
° 
. 
° 
. 
*° 
° 
2 
e 
° 
7 
é 
. 
a 
7 
6 
- 
s 
es 
a 
° 
o 
e 
o 
e 
o 
° 
o 
a 
. 
° 
o 
- 
+ 
a 
. 
‘J 
+ 
° 
o 
° 
° 
° 
- 
° 
° 
° 
. 
° 
& 
° 
° 
s 
. 
° 
a 
e 
© 
e 
. 
° 
. 
6 
. 
° 
a 
a 
. 
6 
° 
° 
° 
@ 
2 
+ 
° 
. 
° 
& 
os 
° 
. 
a 
. 
° 


NOUS WN OO 


Jae 


SESSSSESSSS 


9391 
444 


940 


eeeeeeeeeee 
SweRRUNe SS 


DOOOODOODOOOONDO 
PP DADA 


RELEELELERELELL 


SSSISTFENISSRVSAE 


2 


9498 


ooo 
SRER_SS 
PIRI HEE HAMAS DAA AAA AX NNN NAA AAA AAAAAAAAAEAAAA AMINE SLL LEE 


—Oo0ooO 
foyeye) 


m 16 
"S73ep-1986 S1:54:9¢ — EoeauG. Sec Sbece VALOP.8 
BEGIN 


! Only do the recursive call from here if either we have already 
! searched from the left son, or if the right index comes before 
; the right index. 


If EF T_DONE OR .RIGHT_INDEX LEQ .LEFT_INDEX 


BEGIN 
RIGHT_DONE = TRUE; 
1 Loop through all the successors to RIGHT_TYPE. 


HIER_TBL_ENTRY = .HIER_TBL C.RIGHT_INDEXJ; 
WHILE -HTER_TBL_ENTRY CTYPE_GRAPHSB_LOWER_TYPE] EQL .RIGHT_TYPE DO 


“TBL_ENTRY CTYPE_GRAPHSB_HIGHER_TYPE), 
OTENTIAL_TYPE 

POTENTIAC_TYPE, 

TAL INDEX; 


TBL, .HIER_TBL_S1Z 
AP TBL INCOMP=TBL 


E 
- S12€, 
TEL, .ROUT_TBL_SI 


E); 


! If we have a new minimum Length path, then record 
' all the relevant information. 


‘ 
1 
| 
if .POTENTIAL_DEPTH LSS .MIN 
THEN 


N 
= ,POTENTIAL_DEPTH; 
EFT_TYPE =".LEFT POTENTIAL_TYPE; 


WL 
NEW-RIGHT TYPE = .RIGAT_POTENTIAL_TYPE; 
ROUT_INDER = .POTENTIAL_ INDEX; 


: Set up for next time around Loop. 


RIGHT_INDEX = .RIGHT_INDEX + 1; 
HIER TBL_ENTRY = .HIER_TBL C.RIGHT_INDEX); 


If we have searched both paths, we are done. 

if (.RIGHT _DONE OR NOT .RIGHT_FOUND) AND (.LEFT_DONE OR NOT .LEFT_FOUND) 
EXITLOOP; 

ND; 
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§ RETURN .MIN; 


1 END; 
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OFFC 00000 FIND_JOIN: 


WORD 
0c 2 0000 SUBL2 
04 AC FO 0000 INSV 
08 AC DO 00008 MOVL 
5B 90 0000F MOVE 
01 CE 00012 MNEGL 
1B 11 0001 BRB 
30 BC40 7F 00017 1$: PUSHAQ 
52 B1 0001B CMP 
12 12 OOO1E BNEQ 
04 AC DO 00020 MOVL 
5B DO 00025 MOVE 
50 D0 00029 MOVL 
18 AC BO 90080 MOVL 
04 00031 RET 
34 AC £2 00052 28: AOBLSS 
01 C1 00037 ADDL 
56 D1 0003C CMPL 
41 18 00040 BGEG 
5B FO 00042 INSV 
04 AC 90 00047 MOVB 
00000000" EF 9E 0004B MOVAB 
28 AC D1 00052 CMPL 
1B 13 00056 BEQL 
01 CE 0005 MNEGL 
11 11 00058 BRB 
28 BC40 BO 0005D 3$: = MOVW 
OF 13 00062 BEQL 
52 B1 00064 CMP 
1A 13 00067 BEQL 
53 B1 00069 CMP 
15 13 0006C BEQL 
2c ACF ODDGE 4S: © AOBLSS 
20 AC DO 00073 5$: —- MOVL 
00000000" EF 9 00077 MOVAB 
5 D1 O007E CMPL 
08 12 00081 BNEO 
00000000" EF D0 00083 6$: = MOVL 
04 O008A RET 
59 94 00088 78: CLRB 
57 94 0008D CLRB 
Qt CE 000BF MINE GL 
D 11 00092 BRB 
6540 BO 00094 BS: ROW 
2¢ 0098 BEQL 
ee 
06 13 OOOAS BNEO 


$2 AX-11 


Bliss<32 V4.0-74 
DEBUG.SRC 


DBGEVALOP.B32;1 


#8, TYPES 
{1 


LEFT_TYPE, @NEW_LEFT_TYPE 
R11, @NEW_RIGHT_TYPE 

I, INDEX 

DE 

ROUT_TBL 
#1, BePTA 
RS. MIN 
Ril, #8, #8, REVERSE TYPES 

LEFT TYPE, REVERSE_TYPES 
TABLEBASE, RO 

INCOMP_TBL, RO 

5$ 

“1, 1 

@INCOMP_TBLCIJ, INCOMP_TBL_ENTRY 
TYPES, INCOMP_TBL_ENTRY 
REVERSE_TYPES, INCOMP_TBL_ENTRY 
INCOMP_TBL_SIZE, I. 3$ 

HIER_TBL, R5 

TABLEBASE, RO 

RS, RO 

MAX_DEPTH, RO 


LEFT_FOUND 
HT FOUND 


SIZE, I, 1% 
» R6 


C1], HIER_TBL_ENTRY 


T_FOUND, 9$ 
PB, HIER_TBL_ENTRY, LEFT_TYPE 


oar BD 
rwomnza-— 
* Aue oc 
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tind, al i§- ~sep-19 4 2 9: 3: $2 AX=-11 Bliss-32 V4.0-74 


-Sep-1984 4:26 DEBUG. SRC JDBGEVALOP.B32;1 
59 1 90 000A5 MOVB 1, LEFT_FOUND 
3 Q Dp O0A8 MOVL 4 LEFT_IND NDEX, 
0d E8 OOOAB 9S: BLBS § RIGHT_FOUND 
58 54 08 00 ED 000A CMPZ7v #0, #8, HIER_ ie ENTRY, R11 
06 12 0008 BNEG 108 
57 gi 90 000B MOVB #1, RIGHT_FOUND 
38 0 »DO 00088 MOVL 1, RIGHT INDEX 
0 59 «£9 0088 10$:  BLBC  LEFT_FOUND, 11$ 
05 57 £8 00 BE BLBS _- RIGHT_FOUND es 
CE 50 24 AC F2 000C1 11$:  AOBLSS HIER_ BL Size, 
SA 94 000C6 12$: CLRB—s LEF T“DON 
38 94 b00¢8 CLRB —s- RIGHT one 
SA E9 OOOCA 13$:  BLBC LEFT FOUND, 18$ 
05 58 EB b0¢D 14$:  BLBS _RIGHT_DONE. 15$ 
52 53 D1 pn08 CMPL LEFT TINDER, RIGHT_INDEX 
52 14 000D BGTR 18$ ~ 
SA 01 9000005 15$: Move. #1 LEFT ONE 
54 6543 80 000D8 16$: movw (R5) PERT. INDEX], HIER_TBL_ENTRY 
06 AC 54 08 09 ED 000DC CMPZV #0, #8, HIER_TBL_ENTRY, LEFT_TYPE 
43 12 0002 BNEQ 188 
7E 30 AC 7D OO0E4 MOVQ §ROUT_TBL, (SP) 
7E 28 AC 7D OO0E8 MOVO INCOMP TBL, -(SP) 
24 AC OD OOOEC PUSHL HIER_TBL_SIZE 
55 DD OOOEF PUSHL R5 
1¢ AC DD OOOF1 PUSHL MIN 
56 DD OOOF4 PUSHL R6 
20 AE SF 000F6 PUSHAB POTENTIAL_* DEX 
$s AE 9F O00F9 PUSHAB RIGHT POTENTIAL TYPE 
0 AE 9F OOOFC PUSHAB LEFT_POTENTIAL_TYPE 
5B DD OOOFF PUSHL Ri 
7E 54 08 08 EF 00101 EXTZV “8 yitER TBL_ENTRY, -(SP) 
FEFS CF OD FB 00106 CALLS A JOIN 
1¢ «AC 50 D1 00108 CMPL POTENTIAL “DEPTH, MIN 
12 18 0010F BGEO 19s 
1c a 50 4 00111 MOVL § POTENTIAL_DEPTH 
oC BC 08 AE DO 00115 MOVL  LEFT_POTERTIAL type @NEW_LEFT_TYPE 
10 BC 04 AE DO OO11A MOVL RIGHT _POTENTIAC_TYPE, @NEQ RIGAT_TYPE 
14 «BC of DO 0011F MOVL POTENTIAL_INDEX; @ROUT_ INDEX 
53 D6 00123 178: INCL LEFT_INDER 
B1 11 00125 BRB 16$ 
SA 57 €9 00127 18$:  BLBC RIGHT FOUND, 22$ 
05 SA £8 OO12A BLBS = LEFT_BONE 
53 52 D1 0012 CMPL set.) INDEX, LEFT_INDEX 
3¢ 14 1 BGTR 22$ 
58 01 90 00132 198: MOVB #1 
54 6542 B0 00135 20$: movw  (R5) rth Acute ONDEX HIER_TBL_ENTRY 
58 54 08 00 ED 00139 CMPZV #0, 8 8, HIER_TBL_ENTRY,~R11~ 
44 12 0013€ BNEQ 22$ 
7E 30 AC 7D 00140 mova ROUT 1 Jet ~(SP) 
7E 38 AC 70 00144 mova TBL, -(SP) 
4 AC DD 00148 PUSHL HIER. re SIZE 
55 DD 00148 PUSHL 
1¢ AC DD 00140 PUSHL MIN 
56 DD 0190 PUSHL R6 
0 AE 9F 001 : PUSHAB POTENTIAL_INDEX 
4 AE 9F HE PUSHAB RIGHT POTENTIAL_TYPE 
AE 9F 00158 PUSHAB LEFT_POTENTIAL_TYPE 


ence > ~~ teu, 


assay 


7E 


; Routine Size: 


54 


411 bytes, 
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oO 


Routine Base: 


IB-Se0-19 4 90: 32: 5 AX-11 Bliss-32 V4.0 


ep-1984 


08 EF 0015 
04 AC 0D 0016 
13 FB 0016 
3 it 1éc 
56 i O16 
08 AE 00 901 
04 AE DO 0017 
gf DO 0017C 
2 06 5188 21$: 
RE sn 
; ? a0187 
FF3D 31 0018A 
A €8 0018D 23$: 
33 5? 4d ba 
FF37 31 0019 
1C AC DO 00196 248: 
04 0019A 


DBGSCODE + 20A9 


1:34:24 DEBUG. SRC JDBGEVALOP. "833, 3% 


EXTZ7V #8, #8, HIER_TBL_ENTRY, =(SP) 


IN 
P 
PTH, MIN 
AL Neve PE, @NEW_LEFT_TYPE 
TAC. Type. @NEQ_RIGAT_TYPE 
INDEX. tROUT® INDEX 


Z2Pro-)r FZU 
or =mr i ie 


T_DONE, 23 
T=FOUND, 3s 


DONE, 24$ 
“FOUND, 24$ 
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-Sep-1984 & DEBUG. § RCIJDBGEVALOP.B32; 1 


ROUTINE FIND_ say ™ Epte Ba PE en Te vets ROUT_INDEX, 


I2e 
 NEOMP a ENCORE” TBL_ SIZE, 
AOus _TBL, “Rout _TBLZSIZE) = 


FUNCTION 
This routine handles implicit ty ype conversions on unary operators. 
It Soveretass ae A. e given LD. TYPE can be converted to 
3 type that is legal for the curren€ operator. The legal types 
can be determined using ORT_TBL. HIER_TBL gives the Bes qenverenen 
aths. Thus, what this routine is doing is eeaeing « path in 
IER_TBL from the OLD_TYPE to a type that is legal for the 
current operator. 


The value returned by the routine is the length of the shortest 
gets ws 4 sees type. If there are no paths, the value MAX_DEPTH 
s returned. 


The search for a path uses the following recursive method: 
1) If the input type is legal, return 0 
) If there _s . yy out fan Ry type, return MAX DEPTH. 
) For each ed ge 9 of the e, do a recursive calT to obtain 
MIN(MAX_DEPTH, SF IND _PATH edge) )- Return the minimum of these. 


*** Note - This routine may also require additional input to 
Stoesbiguete cases where there are two or more paths of 
equal Length. 

INPUTS 

HIER_TBL 

HIER-TBL_SIZE 

INCOMP_TBL 

ee TB. SIZE 

ROUT" TBL_SIZE 


OLD_TYPE™ 
NEW TYPE 


Hier. Table 

Hier. Table Size 

Incomp. Table 

Incomp. Table Size 

Rout. Table 

Rout. Table Size 

The type of the operand (A VAX standard type code.) 
The address in which to leave the result type. 


ROUT_ INDEX The address in which to leave an index into the 

Sperorer Routine Table, pointing to a routine 
at handles the new type. 
OUTPUTS 

NEW_TYPE - ae _< e goreneter is filled in with the type 
to con ° 

ROUT_ INDEX - Filled in. with an index into the Operator Routine 
Sesto. pointing to a routine that handles the 
new type. 


ROUT Ime »vAue 
he Length of the shortest path is returned. If this is equal to 
max DEPTH then no path was found. 


BEGIN 


P 
HIER_TBL: REF VECTOR C,WORD], ! Pointer to a Type Hierarchy Table 


roe 


——_—— 


pF 4 
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voc eS a Be a CS 9 oe ead i 


DONO WE wr 


! If there were no one emanating from OLD TYPE, then no type conversion 
can be done. Indicate this by returning MAX_DEPTH., 


IF NOT .FOUND THEN RETURN .MAX_DEPTH; 
' For each edge out of OLD_TYPE, chase down the target of that edge. 


ve call on that target to find a path from the target 
he minimum length path in the 


wooowonoovd 
SOSSSRRRRRAR ARAL 


RAT 
REL 
NO VUE WN OO OONO UE Wh 


! Do a recurs 


; 9536 ! to a legal type. Keep track of 


: 9480 9571 INCOMP_TBL: REF VECTOR C,WORDJ, ! Pointer to a Type saconpot tot ttsy Table 
3 ey 2 9278 ROU'_TBL: REF ORTSTABLE; ! Pointer to an Operator Routine Table 
; 3c83 98h2 LOCAL 

> 9486 9575 FOUND, ! A flag saying whether 

: 9485 3278 ! we have found a new type 

>; 9486 957 HIER_TBL_ENTRY: TYPE_GRAPHSENTRY, ! An entry in the Type Hierarchy Table 
3: 9487 9578 Il, ! A loop counter 

; 9488 9579 IN ! The minimum depth so far 

> 9489 9580 POTENTIAL_DEPT i A candidate for shortest depth 
> 9490 9581 POTENTIAL-ROUT_INDEX, i A candidate for routine index 
>; 9491 2286 POTENTIAL_TYPE; ! A candidate for the new type 

; 949 95 

3; 949 9584 

> 9496 9585 ! First see if the given type is legal, by searching the Operator 

> 9495 9586 : Routine Table. If it is, then the length of the path to a legal 

: 9496 9587 ' type is zero and this is what we return. 

3: 9497 9588 : 

> 9498 9589 INCR I FROM 0 TO .ROUT_TBL_SIZE = 1 DO 

> 9499 9590 IF .OLD_TYPE EQL .ROUT_TBL C.1, ORTSB_LEFT_TYPE] 

: 9500 9591 THEN 

; 9501 4344 BEGIN 

; 950 959 eNEW_TYPE = .OLD_TYPE; 

; 950 9594 eROUT_INDEX = .J; 

3; 9504 9595 RETURN 0; 

3; 9505 9596 § END; 

; 9506 9597 : j 

; 9507 9598 2 ! Check for no Hierarchy Table being present. 

: 9508 9599 2 : 

; 9509 9600 IF .HIER_TBL EQL TABLEBASE 

; 9510 9601 THEN 

. 43h +4 RETURN .MAX_DEPTH; 

: 3 F aie) Find the first edge emanating from OLD_TYPE in the Type Hierarchy Table. 
3; 9515 9606 FOUND = FALSE; 

: 9516 9607 INCR I FROM 0 TO .HIER_TBL_SIZE - 1 DO 

3; 9517 9608 BEGIN 

; 9518 9609 Il = .J; 

3; 9519 9610 HIER_TBL_ENTRY = .HIER_TBL C.1); 

: 9520 1 IF .AIER-TBL_ENTRY Fol OQ THEN EXITLOOP; 

; 9521 If MIERLTEL ENTRY TYPE_GRAPH$SB_LOWER_TYPE] EQL .OLD_TYPE 

3 1 4 BEGIN 

2 1 4 FOUND = TRUE; 

; 16 4 EXITLOOP; 

$ | ae END; 

3 1 

| 
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variable MIN, 


= .MAX_D 


5 AX-11 B bi age -32 V 
4 DEBUG. SR DAGEVAL 


MIN 
WHILE 2MI HIER. ‘BL "éntry CTYPE_GRAPH$B_LOWER_TYPE] EQL .OLD_TYPE DO 


IF 
H 


END; 


POTENTIAL tae = FIND PAT 
-AIER 


LENTaT CTYPE -GRAPHS$B_HIGHER_TYPE], POTENTIAL_TYPE, 


erie out NDEX, 


IF POTENTIAL_DEPTH LSS IN 
THEN 


BEGIN 
MIN = .POTENTIAL_DEPTH; 
.NEW_TYPE = -POTENTIAL_TYPE; 
-ROUT_INDEX = POTENTIAL _ROUT_INDEX; 
END; 

: Set u for next time around loop. 


il = .] 
IER. TBL _EnThy = ,HIER_TBL C.11); 


-MIN EQL .MAX_DEPTH 


RETURN .MAX_DEPTH 
RETURN .MIN + 1; 


! FIND_PATH 
003C 00000 FIND_PATH: 
. WORD 
$5 00000000" EF 9E 0000 MOV 
SE 8 C2 000 SUBL 
50 01 CE 0000C MNEGL 
18 11 00008 BRB 
20 BC40 7F 00011 18: PUSHAQ 
08 08 ED 00015 CMPZV 
OC 12 00018 BNE 
08 BC 06 aC D 9010 MOVL 
oC Bc 50 BO 000 MOVL 
008D 51 00026 BRw 
50 34, ac £2 000¢9 28 AOBLSS 
9 00000000" EF 9 MOV 
50 10 AC D CMPL 
@6 13 BEQL 
1 04 CLRL 
50 O1 CF MINE GL 
17 40 BRB 


Save R2,R3,R4,R5 
MAX_DEPTH, R5 
#8, SP 


“i, 1 
2$ 
sROuT TBLCI) 
#8, a(SP)+, OLD_TYPE 


OLD_TYPE, anew TY PE 
SROUT_INDEX 

ROUT_TBL_SIZE, 

TABLEBASE., R 
HIER_TBL, RO 


a. | 
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06 AC 
04 AC 
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; Routine Size: 


54 


E4 
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Routine Base: 


' 


50 00 0004 

10 BC4 it Bae 
08 ED doce 
82 is 0059 
1 00 00054 
05 11 00057 
14 «AC Fé 059 
ae: O5E 
65 00 00061 
04 00064 
5 00 B88 
0 Fo 8 
6 i2 3 

20 AC 7D 44 
18 AC 7D 00074 
10 AC 7D 00078 
18 AE 9F 9007C 
20 AE 9F 0007F 
08 EF eet 

9? FB 0008 
0 01 0008C 
OC 18 Q008F 
30 00 00091 
04 AE 00 00094 
6E 00 00099 
53 D6 0009D 
10 BC43 BO 0009F 
g¢ 11 BonM 
52 01 Q00A6 
05 12 000A9 
65 00 QO0AB 
9 11 sted 

52 D6 0008 

52 DO 0008 

e 0008 


w 
So 
= 
So 
Oo 
oO 
@o 
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3$: 


On Owe 
PR MO 


9$: 


DEBUG. SRCSSBCEVALOP.B39;1 
GER TLC, HIER_TBL_ENTRY 
0, #8, HIER TBL_ENTRY, OLD_TYPE 
1, FOUND 
tier RTL SIZE, 1, 38 
MAX "opti, RO 


MAX ~ PTH 
‘ NieR- "BL _ENTRY, OLD_TYPE 


ROUT TBL, -(SP) 
p Ta, =(SP) 

NER ne P) 
POTERTIAL ROUT. INDEX 
POTENTIA 

ae 8, “nen TBL_ENTRY, 
Bical” DEPTH, MIN 
POTENTIAL_DEPTH, fin 
POTENTIAL-TYPE, @NEW_TYPE 
POTENTIAL’ ROUT_INDEX; "BROUT. INDEX 
@HIER_TBLCII], HIER_TBL_ENTRY 
MIN, MAX_DEPTH 


MAX_DEPTH, R2 
12$ 


=> > R 
oo 


-(SP) 


Re 
R2, RO 
RO 


9660. 
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vous g-se0-1984 3:32:82 DEBUG. SRC IDBGEVALOP-639; 1 7 9° ia) 
ROUTINE FIND_PATH 


DEPOSIT (OLD_TYPE, NEW_TYPE, DEPTH, 


3 9571 9661 1 “ 

: 957 9662 1 HTER TBL, HIER-TBL_SIZE 
3 957 9663 1 INCOMP_TBL, INCOMP-TBL. SIZE, 

+ 9574 9664 1 ROUT_TBL, ROUT_TBL“SIZE) = 

3 9575 9665 1! 

13 gee 9666 1 ! FUNCTION 
3; 957 9667 1! This routine handles explicit type conversions on unar gperaners. 
; 9578 9668 1! It is used to determine whether the type given in OLD_TYP 

; 9579 9669 1! can be converted to the type given in NEW_TYPE. The main 

; 9580 9670 1! application of this is when the user is doing a DEPOSIT of a 

; 9581 9671 1! value of type OLD_TYPE into a ers of type NEW_TYPE. 

3 3288 +344 ; ! The routine aoe also get used to implement the ‘‘cast’’ operator 

3 +t, + 8, : } or to implement type conversions of subscript values. 

; 9585 9675 1! This routine uses HIER_TBL and attempts to find a path from 

: 9586 9676 1! OLD_TYPE to NEW_TYPE. The value TRUE is returned if a path 

; 3H port } is found and FACSE is returned if a path is not found. 

; 9589 9679 1! The search for a path uses the following recursive method: 

; 9590 9680 1! 1) If the two types are the same, return TRUE 

: 9591 9681 1 | ) If there are no edges out of OLD_TYPE, return FALSE. 

: 3286 9682 1! ) For each edge out of OLD_TYPE, do a recursive call. If 

3. 959 9685 1! any of these return TRUE, then return TRUE. 

7 9596 9684 1! 

; 9595 9685 1! 

: 9596 9686 1 ! INPUTS 

; 9597 9687 1! HIER_TBL - Hier. Table 

; 9598 9688 1! HIER TBL_SIZE - Hier. Table Size 

; 9599 9689 1! INCOMP_TBL - Incomp. Table 

; 9690 1! INCOMP_TBL_SIZE = Incomp. Table Size 

; 9601 9691 1! ROUT_TBL - Rout. Table 

; 960 9692 1! ROUT TBL_SIZE = Rout. Table Size 

; 960 9695 1! _TYPE - The type of the source operand (A VAX standard type code.) 
; 9694 1! NEW TYPE - The target type (A VAX standard type code). 

; 9605 +244 ! Hi - The current recursion depth 

3; 9607 9697 1 ! OUTPUTS 

3; 9608 9698 1! The routine value is one of: 

; 9609 9699 1! TR - The source can be converted to the target type 

; 9610 9700 1! FALSE = The source cannot be converted to the target type. 

: 9611 9701 1! 

; gel¢ 9702 1 

; 961 970 BEGIN 

3; 96146 9704 

: 9615 9705 P 

; 9616 97 HIER_TBL: REF VECTOR C,WORD], ! Pointer to a Type yeeverchy Table 
3 9617 970 INCOMP_TBL: REF VECTOR C,WORDJ, ! Pointer to a Type Incompatibility Table 
; 9618 9708 ROUT_TBL: REF ORTSTABLE; ' Pointer to an Operator Routine Table 
3: 9619 9709 

3; 9626 9710 LOCAL 

3; 9621 9711 F . ! A flag saying whether 

: 96 § tar 4 : we have found a new type 
; 96 971 HIER_TBL_ENTRY: TYPE_GRAPHSENTRY, ' An entry in the Type Hierarchy Table 
3; 9626 9714 Il; ! A loop counter 

; 9625 9715 

3; 96 $ arte 

; 96 971 ! First see if the source and target are already of the same type. 
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IF .NEW_TYPE EQL .OLD_TYPE 
RETURN TRUE; 


! Then check whether we have already surpassed the maximum depth 
to which we have to search. 


iF gDEPTH GTR .MAX_DEPTH 
RETURN FALSE; 
Check for no Hierarchy Table being present. 
If .HIER_TBL EQL TABLEBASE 
RETURN FALSE; 
Find the first edge emanating from OLD_TYPE in the Type Hierarchy Table. 
FOUND = FALSE; 
scone ye 0 TO .HIER_TBL_SIZE = 1 DO 


It 8 ,33 
ER_TBL C.1); 

IF .AIER-TBL_ENTRY EQL~O THEN EXITLOOP; 
TYPE_GRAPH$B_LOWER_TYPE] EQL .OLD_TYPE 


THEN 
BEGIN 
FOUND = TRUE; 
EXITLOOP; 
END; 

END; 


' If there were no oy emanating from OLD_TYPE, then no type conversion 
can be done. Indicate this by returning FALSE. 


if NOT .FOUND 
RETURN FALSE; 


! For each edge out of OLD TYPE, chase down the target of that edge. 
' Do a recursive call on that target to find out whether there is 
' a path from the edge. 


' 
1 
! 
‘ 
WHILE. -HIER_TBL_ENTRY CTYPE_GRAPHSB_LOWER_TYPE] EQL .OLD_TYPE DO 


IF FIND_PATH_DEPOSIT ( 
IER TOLENTRY CTYPE_GRAPHSB_HIGHER_TYPE], .NEW_TYPE, 


“HIER TBL, .HIER_TBL_SIZE 
“INCOMP_TL; .INCOMP~TBL SIZE, 
“ROUT_TBL, .ROUT_TBL~SIZE) 


THEN 
RETURN TRUE; 


| . 4 
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388? Ee ' Set ‘ t ti dt 
- oe0t u or nex me aroun oop. 
se8 at kX Ls re pampegeion 
=. e P 
9689 378 2” Seiten 9 
et 3 ? ' If we did i ithin the | h failed 
! we n't return true from within the loop, then we failed to 
969 97 ¢ ! find a path. Thus, return false here. ° 
969 97 i 
9694 9784 RETURN FALSE; 
9695 9785 
9696 9786 1 END; ! FIND_PATH_DEPOSIT 
001C 00000 FIND_PATH_ DEPOSIT: 
-@ORD Save R2,R3,R4 
04 ac 08 AC 1 00002 CMPL  NEW_TYPE, OLD_TYPE 
67 13 0000 BEQL 
00000000" EF 0c AC D1 00009 CMPL DEPTH, MAX_DEPTH 
6A 14 00011 BGTR 7$ 
50 00000000" EF 9E 00013 MOVAB TABLEBASE, RO 
50 10 AC D1 OOO1A CMPL 4HIER_TBL, RO 
5D 13 OOO1E BEOL 7 
51 4 90020 CLRL ——- FOUND 
50 01 CE 000 é MNEGL #1, I 
17 11 000¢ BRB 2$ 
5 50 DO 00027 18 MOVL I, Il 
5 10 BC40 80 0002A MOVW  @HIJER_TBLCIJ, HIER_TBL_ENTRY 
12 13 0002F BEQL 
06 ac 53 08 00 €D 00031 CMP2V #0, #8, HIER_TBL_ENTRY, OLD_TYPE 
05 if 00037 BNEQ 
51 01 00 00039 MOVL #1, FOUND 
E4 50 14 Re 3 SO3E $ ROBLSS HIER_TBL_SIZE, I, 1$ 
37 51 Eg G00c8 $§ BLBC. FOUND bg 
54 0c AC 1 €1 000446 ADDL3 #1, DEPTH R4 
06 AC 53 08 0 FD 0048 4$ CMP7V #0. #8, HIER_TBL_ENTRY, OLD_TYPE 
A 051 BNEQ 7$ 
7E 20 AC 70 0053 MOVQ $ROUT_TBL, -(SP) 
7E 18 AC 7D 0005 mMOVO INCOMP TBL, -(SP) 
7E 10 ac 70 08 mova HIER TBL, =(SP) 
54 DD F PUSHL 
08 AC DD 00061 PUSHL NEW_TYPE 
7E 53 08 08 EF 00064 EXTZV #8,7#8, HIER_TBL_ENTRY, -(SP) 
93 AF 9 FB 069 CALLS 4&9, FIND_PATR_DEPOSIT 
4 0 € $ BLBC RO, 6 
0 01 bd 5$: MOVL #1, RO 
4 0007 RET 
53 D 74 68: INCL I! 
53 10 BC4 7 76 MOVW @HIER_TBLCIIJ, HIER_TBL_ENTRY 
ce 78 BRB 4$ 
p4 7D 7%: CLRL =—s-s«aRO 
4 0007F RET 
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; 9697 9787 1 
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-Sep-1984 DEBUG. SRCJDBGEVALOP.B3 31 (45) 
2999 97 8 1 ROUTINE FIXUP_EMPTY_SET(EMPTY_SET, VAL_DESC) = 
9700 97 1! 
449) 9790 1 ! FUNCTION 
97 9791 1! This “y ~ yr vo oP the typeid in empty set value descriptor 
970 4654 .? either byte from val_desc or creating a “ew one by 
9704 9795 1! calling active 1D FOR_SET. 
9705 97946 1! 
97 9795 1 ! INPUTS 
970 44 1! EMPTY_SET - C] value descriptor. 
9708 9797 1! 
9709 9798 1! VAL DESC - Value descriptor. This may be 0 for unary operation, 
are 14.44 : This may be another (J, or standard value descriptor. 
44t 9801 1 ! OUTPUTS 
971 9802 1! Fixed Empty Set Value Descriptor is returned. 
9714 9803 1! 
9715 9804 1 
9716 9805 BEGIN 
9717 9 Be 
9718 980 
9719 9808 P EMPTY SET: REF DBGSVALDESC, 
9720 9809 VAL_DESC: REF DBGSVALDESC; 
9721 9810 
4074 9811 
972 981 EMPTY_SETCDBG$B_DHDR ant 2D G$GB_LANGUAGE ; 
9724 981 EMPTY_SETCDBG$B_VALUE_CLAS : 
9725 9814 cry SET paces. vas Shits! ; 
9726 9815 VAL _DESC 
9727 981 . VAL ~DESCED BG$B SHOR Cope NEQ RSTSK TYPE SET OR 
9728 981 (. VAC_DESCCDBGSB_DHDR_LANG) EQL %x'FF* AND” 
9729 9818 - VALDESCCOBG$B— “VALUES CLASS) EQL &X'FF* AND 
4 : ; 4? “VAL “DESC DBGS$B- VALUE— _DOTYPE) EQL 2x°FF*) 
97 4 9821 EMPTY SETCDBGSL ~pion Type 103 = DBGSTYPEID FOR_SET( 
97 98 § DSCSK_DTYPE-L, RSTSK_TYPE_SET, 256, TRUE) 
97 98 
9735 98246 ELSE 
97 9 $2 BEGIN 
97 o $ EMPTY_SET 1ppeest DHDR_TYPEID] = .VAL_DESCCDOBGS$L_DHDR_TYPEID); 
9738 9 EMPTY-SETCDBGS$W_VALUE_LENGTH] = .VAC_DESCCDBGS$OQ_VALOE_LENGTH); 
9739 + 8 END; 
9745 9829 
9741 9830 RETURN .EMPTY_SET; 
9742 9831 1 END; 


Be Se Oe Se Se Se Se Se Ge Se Be Se Se Se Se Be Oe Ss Se Be Se Se Se Se Oe Se Se Ge Oe Oe Se oe Oe Ot Oe OHS Se Ss Oe OH SH Sees 


000C 00000 FIXUP_EMPTY ScT: 


wORD poxe R2,R3 : o7ee 
53 04 0 2 HOVE EMPTY SET, R3 : 981 
03 A 000000906 06 a ROWE 6598. LANGUAGE, 3(R3) : oni 
52 0 AC i mOvL AL_DESC, R2 : 9815 
08 06 8 9 3 CMPB sO (R2), #8 : 9816 


eee 


| 


FF sé 

FF aR 

FF 8F 

7E 

000000006 00 

08 A 

08 A 

14 | 

50 

3; Routine Size: 88 bytes, Routine Base: 
3 9743 9832 1 


0100 


oO 
ec 


UP POMNOOOWO— PF — Pwr 


WNP & OF OO ™ — COMI MONI! 
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12 00018 BNEQ =-‘'1$ ; | 
$f 1 CMPB (R2), #255 + 9817 

}¢ BNEQ $ : 
9 CMPB (R2), #255 + 9818 

1 9 BNEQ : 
9 CMPB (R2), #255 + 9819 

1 BNEQ : 
pd 1$: PUSHL #1 + 9821 

C 00034 MOVZWL #256, (SP) : 
DD 00039 PUSHL @# : 
DD 00038 PUSHL # : 
FB 00 D CALLS #4, DBG$TYPEID_FOR_SET : 
D 44 MOVL RO. 8(R3) : | 
11 00048 BRB 3$ : 
DO 0004A 28: MOVL  8(R2), 8(R3) : 98 $ 
BO 0004F MOVW  20(R25, 20(R3) > 9827. 
DO 00054 3$: MOVL R3, RO + 9830. 
04 00057 RET + 9831. 


DBGSCODE + 2370 
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If "the: hand side is one of the floating-point data type, we need to 
get the puposent porns RHA SOE is the . ¥ ung Hei he For 

example F ==> +04 ==> 34.56 This should 
not ante on 4%, lett hand side. 


EDSCSK DTYPE_ F, DSCSK_DTYPE_D, DSCS$K_DTYPE_G. DSC$K_DTYPE_H): 


(one ee te ee 


ep-1984 DEBUG. SRCJDBGEVALOP. B35; 71 
3 ore? of ? } ROUTINE INTMED_DATA_FOR_DEP(FROM_DESC, TO_DATA_TYPE, FLAG) = 
3: 974 9835 1 ! FUNCTION 
; 9748 98 § 1! There are times an intermediate data is needed before the deposit. 
: 9749 98 1! This routine takes the from descriptor converts to intermediate 
; 9750 9838 1! data, return the intermediate data back to the caller. The caller 
: ore) + Fe : takes intermediate data then performs the deposit into TO_DESC. 
; 975 9841 1 ! INPUTS 
: 9754 94) 73 FROM_DESC - From value descriptor. 
; 9755 9845 1! 
>; 9756 9844 1! TO_DATA_TYPE - Intermediate data type. 
; 9757 9845 1! 
3; 9758 9846 1! FLAG - Flag set to TRUE to indidate left hand side 
; 9759 9847 1! of the deposit. 
; 9760 9848 1! 
; 9761 9849 1 ! OUTPUTS 
: 976 9850 1! Intermediate data type is returned. 
3; 976 9851 1! 
3; 9764 9852 1 
3; 9765 985 BEGIN 
3; 9766 9854 
3; 9767 9855 P : ; 
; 9768 9856 2 FROM_DESC: REF DBGSVALDESC; ! Pointer to value descriptor. 
3; 9769 9857 2 
: 9770 9858 § LOCAL 
; 9771 9859 DIGITS, ! The number of digits 
; 9772 9860 § INTMED_DESC: REF DBGSVALDESC; ! Intermediate data value descriptor. 
3; 9773 9861 
3 9774 9862 2 
: 9775 9865 2 CASE .FROM_DESCCDBG$B_VALUE_DTYPE] FROM 0 TO peesx _MAXIMUM_DTYPE + 
; 9776 9864 2 RST$K_ TYPE MAXIMUM OF 
3; 9777 9 2 SET 
; 9778 9866 $ 
3; 9779 9867 
; 9780 9868 COSCSK ~Brvee NL, DSCSK_DTYPE_NLO, DSCSK_DTYPE_NR, DSLSK_DTYPE_NRO, 
> 9781 9869 DSC$K-DTYPE_NZ3: 
3; 978 9870 BEGIN 
; 978 9871 IF .FLAG THEN RETURN .FROM_DESC; 
3 9784 987 INTMED_ DESC = MAKE _VAL Est TO DATA_T 
3; 9785 987 DBGSNUM ABy Test. TO_DATA_TYPE), 
; 9786 9874 
; 9787 9875 qoue ds 
; 9788 987 INTMED_DESCCDBG$B_VALUE ratte . FROM PserpeGss. VALUE_DIGITS); 
; 9789 987 INTMED_DESCCDBG$B_VALUE_SCALE) = .FROM BESCCDBG$B VALUE SCALE); 
: 9790 9878 INTMED_DESCCDBG$W- VALUE LENGTH] = .FROM_DESCCDBG BeVAL UE. LENGTH): 
; ad. p+ te INTRED_DESC = = DBGSTYPE_CONV (.FROM_DESC> .IN AIRES D DESC 


tC @ 
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; 980 9890 INTMED_DESC = MAKE_VAL_DESC(.TO_DATA_TYPE, 

; 980 9891 SOUTH DYESS. FE_SATATWPED, 

>; 9804 494 

; 9805 989 TRUE); 

; 9806 9894 iNTMED_DESCCDBGS$B_VALUE_SCALE] = GET SCALE(.FROM_DESC, DIGITS); 
; 9807 9895 INTMED_DESC 92 me MPR = .OIGITS; 

; 9808 98 INTMED_DESCLDBGSW_ VALUE LENGTH] = .DIGITS; 

>; 9809 989 INTMED_DESC = DBGSTYPE_CONV (.FROM_DESC, .INTMED_DESC); 

; 9810 9898 END; 

; 9811 9899 

3 gag 9900 

; 981 9901 ! If we deposit a interger data cyge wee a scaled data type, 

> 9814 990 ! change its class to be scaled. This can be on the left 

; 9815 990 ! hand side of the deposit (may be voliatile) or on the 

: 9816 9904 ' right hand side. 

3; 9817 9905 2 7 

; 9818 9906 2 CDOSCSK_DTYPE_B, DSCSK_DTYPE_W, DSCSK_DTYPE_L, DSCSK_DTYPE Q 

>; 9819 9907 DSCSK_DTYPE_BU, DSCSR_DTYPE_wu, DSCSK_DTYPE_LU, DSC$k_DTYPE_au): 
; 9820 9908 BEGIN 

; 9821 9909 INTMED_DESC = MAKE_VAL_DESC(.TO_DATA_TYPE, 

; 982 9910 3 DBGSNUM_BYTES(.TO_DATA_TYPE), 

; 982 9911 H s 

3 9824 991 TRUE); 

; 9825 9913 3 

; 9826 9914 3 ? : : 

3; 9827 9915 3 ' Put in the scale information. 

3; 9828 9916 3 : 

; 9829 9917 3 IF .FROM_DESCCDBGS$B_VALUE_CLASS] EQL DSCSK_CLASS_SD 

; 9830 9918 3 THEN 

; 9831 9919 4 BEGIN 

; 9832 9920 4 INTMED_DESCCDBG$B_VALUE_SCALE] = .FROM_DESCCDBGS$B_VALUE_SCALE); 
: 9833 9921 4 

3; 9834 o35¢ 4 

; 9835 99235 4 ! The number of digits is assigned according to the COBOL rule. 
3 eeee poh This should be adequate for all the Languages. 

; 9838 9926 4 SELECTONE .FROM_DESCCDOBGSB_VALUE_DTYPE] OF 

: 9839 9927 & 

: 9860 9928 4 COSCSK_DTYPE_B, DSCSK_DTYPE_BuUd: 

> 9841 4494 5 

3; 984 9930 5 IF .FROM_DESCCOBGSB_VALUE_DIGITS] EQL 0 

3 984 9931 5 THEN 

3 9844 p45 74 6 BEGIN 

> 9845 9933 6 ENTRED DESC EDRGSN VALUE _t FUGTH 5 +E 

: 9846 9934 6 INTMED_DESCLDBGSB_VALUE_DIGITSJ = 3; 

3: 9847 9935 6 END 

: 9848 9936 5 

: 9849 9937 6 BEGIN 

; 9850 9938 6 INTMED_DESC ete thener Syrah, = ,FROM_DESC(DBG$B_VALUE_DIGITS); 
; 9851 9939 6 INTMED_DESCCDBG$B_VALUE_DIGITS] = .FROM_DESCCDBG$B_VALUE_DIGITSJ; 
; 985 9940 5 END; 

; 985 9941 & END; 

: 9854 sr¢ | 4 

: 9855 99435 4 CDSCSK_DTYPE_W, DSCSK_OTYPE_wu): 

: 9856 9944 5§ N 

3; 9857 9945 5 IF .FROM_DESCCDBGSB_VALUE _DIGITS) EQL 0 

; 9858 9946 5 THEN 


ns 


| 


ce: 
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: 9859 9947 6 BEGAN 

: 9860 9948 6 TED DESC EDBGEN. VALUE_L ENGTH] 2 5: 

> 9861 9949 6 _ 4 INTMED “DESC LDBGS$B~ VALUE ~ “5 GITS] = 

: 986 9950 ‘ « END 

: St 398) é LSE GIN 

> 9865 3988 6 INTMED -pE Sc ppaGsy. VALUE_LENGTH] = .FROM -DEScEpBG SB. VALUE _DIGITS); 
79 9954 ‘ INTMED DESC LDBG$B~ VALUE ~ “digit S$] = .FROM~DESCCDBG$B~VALUE-DIGITSJ: 
: 9867 9955 END; 

: 9868 9956 5 

: 9869 9957 4% END; 

> 9870 9958 4 

; 9871 9999 4 CDSC$K DTYPELL, DSC$K_DTYPE_LUJ: 

: 987 9961 § IF .FROM_DESCCDBG$B_VALUE_DIGITS] EQL 0 

: 3Bse +4 ar THEN EGIN 

> 9876 9964 6 INTMED_DESCCDBG$W_VALUE_LENGTH] = 10; 

> 9877 9965 6 INTMED ~DESCCDBG$B~ VALUE -big IGITS] = 10: 

: 9878 9966 6 END 

; oBa0 se4 3 SE REGIN 

> 9881 9969 6 INTMED -DESCEDBG EU. VALUE_LENGTH] = .FROM ~DESCEDBGEE. VALUE _DIGITS); 
: 9 9970 6 INTMED-DESCLDBG$B_VALUE DIGITS] = .FROM~DESCLDBG$B_VALUE DIGITS): 
; 9883 9971 5 END; 

: 9884 9972 § 

; oes 346 2 END; 

: 9887 9975 4 CDSCSK DTYPE _Q, DSCSK_DTYPE_QuU?: 

: 9889 9977 2 IF FROM _DESCCDBGS$B_VALUE_DIGITS] EQL 0 

: SBor 3979 6 THEN BEGIN 

> 989 9980 6 INTMED_DESCCDBG$W_VALUE_LENGTH] = 20; 

> 989 9981 6 INTMED~DESCCDBG$B-VALUE DIGITS] = 20: 

> 9894 9982 6 END 

: 3B96 3984 6 SE REGIN 

+ 9897 9985 6 INTMED -DESCEDBGSU VALUE_LENGTH] = .FROM -DESCEDBGSB. VALUE _DIGITS): 
> 9898 9986 6 INTMED~DESCCDBG$B-VALUE DIGITS] = .FROM~DESCLDBG$B~VALUE DIGITS): 
> 9899 9987 5 END; 

: 9900 9988 5 

: 9901 9989 4 END: 

> 990 9990 4 

: 990 9991 4 TES; 

> 9904 9998 4 

; 9905 999 END; 

: 3809 9995 

> 9908 p44 ! There is no real conversion needed for left hand side 

3; 9909 999 ! of the deposit, we only want to make a place holder. 

> 9910 9998 i 

; 9911 9999 if NOT “FLAG 

: g3t8 1099) INTMED_DESC = DBGSTYPE_CONV(.FROM_DESC, .INTMED_DESC); 

: 9915 19008 RETURN .INTMED_DESC; 


| 
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; 991 10004 END; | 
: 991 1308 | 
: 3318 19009 1D thi t the f d | 
. oes no ng, return e rom esc. | 
> 9920 10008 . | 
; 9921 10009 ¢ INRANGE OUTRANGE): 
: 99 : 10010 RETURN .FROM_DESC; 
: 99 10011 
> 9924 1001 TES; 
> 9925 1001 
: 9926 10014 2 RETURN .INTMED_DESC; 
> 9927 10015 1 END; 
007C 00000 INTMED_DATA_FOR_DEP: 
WORD “Save R2, at R4,R5,R6 3; 9833 

56 0000v CF 9E 00002 MOVAB MAKE VAL_DESC. R : 

55 F4AE CF 9E 00007 MOV dB BGSRUM- ‘BYTES. R5 3 

3E 64 C2 0000C SUBL2 #4, SP ; 

5 04 aC DO O000F MOVL FROM DESC, R3 > 9863 

54 16 A3 9A 00013 MOVZBL 22(R3), R& : 

41 8F 00 54 8F 00017 CAS Ro, #0, : 

oop 0oDc 008A 008A OO001C 1$: <WORD 3$-1$, : 

00DC 00DC 00DC 00DC 00024 38-1 : 

OOAF OOAF 00DC 00DC 900¢¢ $-1 : 

008A 008A 008A OOBA 000 7$-1 : 

86 0086 0086 0086 0003¢ 7$-1 : 

008A 008A 008A 0086 00044 7$-1 : 

OOAF 008A 008A 008A 0004¢ 7$- : 

008A 008A 008A OOAF 00054 7$- : 

008A 008A 008A OOBA 0005¢ 7$- : 

BA 008A 008A 008A 00064 7$- : 

008A 008A 008A 008A 0006C 5$- : 

008A 008A 008A 00074 5$- : 

008A 008A O0BA 008A 0007¢ 35- : 

008A 008A 008A OOBA 00084 3$- : 

008A 008A 008A 008A 0008C¢ 35- : 

008A 008A 008A 008A 00094 35- : 

008A 008A 0009¢ 2$- : 


PARAPAAPAAAA AA PAAAAAPAPARAPAAAAARAAAAARB 
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PAPA AA AAA AA AAA AAA AAPA AMXAMMA MMMM 
teeeevpeeocespeeseeeeeeeeeeeeeee 8 
a ke ed ad ad 


ese ess eseseeseseseseseseseseseseseseseeseeese ese sees 
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PPAAPAAAAAAAAA AA APN AA AA AA AAA APRA APA MAMMMWM 


; 3 
3 3 
3 $ 
3 3 
3$- : 
3$- : 
3$- F 
3$- : 
33. 
04 11 OO0OA0 BRB 3$ : 1001 
04 OC AC €9 OODA2 2$: BLBC FLAG, 4$ 3; 9871 
50 53 DO 000A6 3$: MOVL R3, RO $ 
04 000A9 RET : 
1 DD OOOAA 4$ PUSHL #1 3 9872 
E D4 OOOAC CLRL -(SP) 3 
08 ac OD BOOAE PUSHL TO. DATA_TYPE : 9873 
65 01 FB 000B1 CALLS - DBeSNUR BYTES : 
50 DD 00084 PUSHL ; 
08 ac OD B08 PUSHL TO_DATA_TYPE 3 9872 
O% FB 0B CALLS #47 MAKE VAL_DESC : 

52 D ppoec MOVL BO ral i. D_DESC : 
ee . «4 Hi OOBF MOV ; (R3), 28TINTMED_DESC) 3 9877 
14 =O A 14 A3 BO 000C4 MOV gens) OCINTMED-DESC) : 9878 

A 11 000C9 BRB : 9879 

1 DD 0O00CB S$: PUSHL ‘i : 9890 
7E 04 000CD CLRL (SP) 3 

08 aC DD OOOCF PUSHL 10. DATA_TYPE : 9891 
65 1 FB $80 CALLS " DBCSNUM BYTES ; 
0 oD D PUSHL +4} 3 

08 aC DD 0000 PUSHL 10. DATA_TYPE : 9890 
$6 4 FB OODA CALLS #47 MARE. VAL_DESC : 
0 p00 000DD MOVL RO. INTMED_DESC 3 
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; Routine Size: 416 bytes, 


; 9928 10016 


1 


oc 


0428 £3 


56 


Routine Base: 
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C AC €8 0018C 16$:  BLBS FLAG, 18$ : 9999 
2 DD 00190 17$:  PUSHL INTMED_DESC + 1000 
DD 001 PUSHL R : 
9 FB 00194 CALLS #2, DBGSTYPE_CONV : 
be 199 MOVL RO, INTMED_DESC r 
52 p 019C 18$:  MOVL INTMED_DEST, RO + 1001 
4 0019F RET : 1001 


DBGSCODE + 2305 


2 
base yA, OP 1b-Se0-1984 90: 32:2 AX-11 Bliss-32 V4.0-74 | Pose 703 


-Sep- DEBUG. SRC JDBGEVALOP .B32;1 
; 9930 10017 1 ROUTINE MAKE_VAL_DESC (TYPE, LENGTH, DESC, FLAG) = 
; 9931 10918 1 ! 
3; 99 ¢ 10019 1 ! FUNCTION 
; 99 10020 1 : Allocates space for a value descriptor of the given type, and 
3; 9934 10021 1 ! fills in the fields. 
3; 9935 100 § 1 ! 
3; 9936 100 1 ' INPUTS 
; pat t4 10024 1 ! TYPE = A VAX standard dtype code. 
; 9938 10025 1 : LENGTH - Length of the value descriptor 
; 9939 10026 1 ! DESC - Points to a Value descriptor which is 
: 9940 10027 1 ! used in some cases to determine the fields 
3: 9941 10028 1 ! of this new descriptor. This is described 
3; 994 10029 1 ! in more detail in the code. 
; 994 10050 1 : FLAG - Flag set to indicate when call dbg$map_dtype_class 
3: 9944 10031 1 ' the returned class should be SD instead of S for 
3; 9945 4 1 ! returning S case. 
3 9946 10033 1 ! 
3; 9947 10034 1 ' OUTPUTS 
3 9948 10035 1 ! Returns the address of a value descriptor allocated out of temporary 
3 9949 10036 1 ‘ memory. 
; 9950 10037 1 ! 
3; 9951 10038 1 
3 4474 10039 § BEGIN 
3; 995 10040 
3; 9954 10041 2 DESC: REF DBGSVALDESC; 
; 9955 + 9g 2 . 
; 9956 1004 § ALLOC_LENGTH, ! Allocated length of descriptor 
3; 9957 10044 ! in bytes ; 
; 9958 10045 2 DESCR LENGTH, ! Length of the descriptor 
3: 9959 10046 2 RESULT: REF DBGSVALDESC; ' Address of the result descriptor 
; 9960 10047 § 
3; 9961 10048 
: 996 10049 $ DESCR_LENGTH = .LENGTH; 
> 996 10050 IF .TYPE EQL DSCSK_DTYPE_vT 
3; 9964 10051 THEN 
3; 9965 4 BEGIN 
3: 9966 1005 IF .DESCR_LENGTH LSS 14 
3: 9967 10054 
3; 9968 10055 DESCR_LENGTH = 16 
3 9969 10056 S 
; 9970 10057 DESCR_LENGTH = .DESCR_LENGTH + 2; 
3; 9971 10058 3 RESULT = Gooser | Tenner TALLOC_LENGTH = DBGSK_VALDESC_BASE_SIZE + 
3; 997 10059 (3 + MIN (.DESCR_LENGTH, 256 + 2)) / 4); 
3 997 10060 END 
3: 9976 10061 
3; 9975 Hh ELSE 
3; 9976 1006 BEGIN 
3; 9977 10064 IF . TYPE EQL DSCS$K_DTYPE_P 
; 9978 10065 TH 
s 444 Hh DESCR_LENGTH = MAX (16, (.DESCR_LENGTH + 1) / 4) 
: 9981 10068 DESCR_LENGTH = MAX (16, .DESCR_LENGTH); 
; 3088 19090 RESULT = DBGSGET _TEMPHER (ALLOC_LENGTH = DBGSK_VALDESC_BASE_SIZE + 
3; 9984 10071 (3 + MIN’ (.DESCR_LENGTH, 256)) / 4); 
3; 9985 4 4 END; 
; 9986 1007 
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-Sep-19 DEBUG. DBGEVALOP.B32;1 
; 9987 10074 
5 44+ ; Be } Fill in the fields of the new value descriptor. 
: 9990 19073 RESULT (DBGSB_DHDR -LANG) = ,DBGS$GB_LANGUAGE; 
; 9991 1 143 RESULT G$B_DHDR- = DBGSK_VALUE_DESC: 
; 444 54 RESULT [CDBGSW"DHDR-LENGTH) = 4. ALL OC CENGTH; 
; 999 10080 do DBG$B-DHDR_KIND] = RSTSK_DATA; 
3: 9994 tf . TYPE meer BBGSK-MAXIMUM_DTYPE™ 
3; 9995 100 ¢ NE 
3; 9996 1008 BEGIN 
3; 9997 10084 RESULT ([CDBG$B_DHOR diet! = .TYPE = DBGSK_MAXIMUM_DTYPE; 
; 9998 #4 RESULT CDBGSB_VALUE_CLA = = 8: 
;._ 9999 1 B38 RESULT CDBGS$B_VALUE— “5 TYPE 
310000 1008 EN 
:10001 10088 
5 1RONe 10089 ELSE 
31000 10090 BEGIN 
310004 10091 IF .FLAG 
310005 1009 THEN 
310006 1009 RESULT CDBG$B_DHDR_FCODE] = RSTSK_TYPE_DESCR 
310007 10094 
310008 10095 EL 
310009 10096 SULT CDBG$B ae FCODE] = RSTSK_TYPE_ATOMIC; 
310010 10097 RESULT DBG$B_VALOE_CLASS) = DEcsnAP _BDTYPE-CLASS(. TYPE, .FLAG); 
310011 10098 RESU_T DBG$B_ VALUE “DOTY YPE] = .TYPE; 
18 10099 END; 
31001 10100 
310014 10101 RESULT CDBG$W_VALUE_LENGTH] = — - LENGTH 
112 IO 138 RESULT DBGSL_ VALUE “POINTER] = sur tope$ae at ADDRESS); 
310017 10104 ! If we are converting to ‘‘FIXED'’ then we need to fill in the 
21 3OtS iSihe dtype field. We also need to Light the binscale flag. 
310020 10107 it -TYPF EQL DSCSK_DTYPE_FIXED 
3 1008) 10108 THEN 
3100 ; 10109 BEGIN 
31002 10110 RESULTCDBG$V_VALUE_FL_BINSCALE] = 1; 
#10024 10111 RESULTCDBG$B_VALUE_DTYPE] = DSC$K _DTYPE_L; 
3710025 + SB END; 
310026 1011 
310027 10114 a RESULT; 
310028 10115 1 END i MAKE _VAL DESC 


001C 00000 MAKE_VAL_DESC: 
WORD 


Save R : 1001 

50 08 AC dO 00002 MOVL Seve fe Reeth _LENGTH > 1004 

54 04 aC 00 00006 MOVL TYPE, R4 : 1005 
25 54 0D OA CMPL) «= saRG, #37 : 
eA 1 BNEQ ; 

3 : OF CHPL DESCR_LENGTH, #14 > 1005 

50 ° i 014 MOVL #16, DESCR_LENGTH > 1005 
03 11 00017 BRB 2$ : 


a 
DBGEVALOP 16-Sep-1984 00:32:25 AX-11 Bliss-32 V4.0-74 
ae -Sep- 254: " LOP. 3 
voe<000 ets 7a Se a ST Pg Er eC 
0 s C0 0019 1$: ADDL2 #2, DESCR_LENGTH 
1 D 1C 28: MOVL DESCR LENGTH, R1 
00000102 &F i D} 1F cHPL Rl. #2 
1 0102 «=F 3¢ 00 8 MOVZWL #58 R1 
1 3 ¢ 3$ ADDL2 #3, R1 
1 4 a: DIVL2 #4, R1 
52 08 Al 9 0 MOVAB (R1), ALLOC_LENGTH 
15 HA D1 00039 4$ CMPL «=e RG, #21 
H 12 0003¢ BNEQ 
51 01 A 9 90 MOVAB 1(RO), R1 
1 04 C 4 DIVL a4, RI 
10 1 D1 0004 CMPL =soR1. #16 
0A 19 00048 BLSS 5 
OB 11 O004A BRB $ 
51 50 00 S904¢ 5$ MOVL DESCR_LENGTH, R1 
10 51 01 0004F CMPL sR, #16 
03 18 00052 BGEO 
51 10 D0 00054 68: MOVL #16, R1 
50 51 00 00057 7$: MOVL RI, DESCR_LENGTH 
00000100 &F 30 D1 00054 cMPL RO, #256 
50 0100 BF 3¢ 00065 MOVZWL #256 RO 
50 03 CO 00068 8$ ADDL ¢ #3, RO 
50 04 C¢6 00068 DIVL2 #4, RO 
52 08 AQ 9E 9006E MOVAB 8(RO), ALLOC_LENGTH 
52 DD 00072 9S: PUSHL ALLOC LENGTH 
000000006 0 9} FB 00074 CALLS #1, DBGSGET_TEMPMEM 
g 0 pO 00078 MOVL RO. T 
03 A3 000000006 00 90 0007E MOVB § DBG$GB_LANGUAGE, 3(RESULT) 
02 Ad 7A —soSF 30 00086 MOVB. #122, 2(RESULT) 
63 3 04 AS 00088 MULW3 #4, ALLOC_LENGTH, (RESULT) 
07 ~#~A 06 90 0008F MOVB #6, 7(RESOLT) 
52 14 A3 9E 00093 MOVAB 20(RESULT), R2 
28 54 01 00097 CMPL «sR, #4 
OA 13 O09A BLEQ ~=-108 
06 A3 54 2B 83 0009C SUBB3 #43, R4, 6(RESULT) 
02 Ag B4 O00A1 CLRW (Rd) 
20 11 OOOA4 BRB 3$ 
06 10 AC £9 Q0OA6 10$:  BLBC FLAG 11$ 
06 A 0 OOAA MOVB #3. & (RESULT) 
04 11 OOAE BRB 
06 A3 02 9000080 11$: MOVB #2, 6(RESULT) 
10 AC DOD 000B4 12$: PUSHL FLAG 
54 DD 00087 PUSHL R 
FIOF =6OCF é F B9 CALLS #2, BGSMAP_DTYPE_CLASS 
3 OA 9 MOVE = RO, (Re) 
2 x 4 9 C MOVB 4. 2(R2) 
5 08 AC D C6 13$:  MOVL LENGTH RO 
00000100 = &F 30 Di cA cRPL RO #256 
50 0100 rf 3 0 MOVZ2WL # i, RO 
6¢ 9 = D8 14$:  MOVW RO, (R 
18 «OA 20 AS 9 MOVAB 32(R3), 24(RESULT) 
28 34 p| E CMPL) «=soRG, 48 
8 12 O00E BNEG =«-15$ 


_ $3 S888 sssses 


Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Be Se Fe Be Se Ge Ge Ge Se Se Be Se Se Se Se Se Se Se Se Se Se Fe Be Se Fe Fe Fe Be Be Se Se Se Fe Se Se Se Se Be 


oseanh ASCH MARGE ESULAASEEAES, Melt 
BoB ARGOS mua? ap. soagsun iat 
5 BO QOOED 158: HOVL RESULT. RO ¢ 1011 


3; Routine Size: 241 bytes, Routine Base: DBGSCODE + 2575 


M 2 
vou-000 "$r$ep-19Be 24:54:8 — EDauG. SacSbace vALOP.039;1 Pane 28) 


2198 ? } 118 } ROUTINE MAP _NRO_DTYPE_IN_RPG(VAL_DESC) = 

100 é 1 118 1 i FUNCTION 

3100 10119 1 ‘ This routine maps the representation of least significant digit and 
2198 4 10120 1 ’ 4} into RPG standard output format acceptting both normal or 
2188 5 : } 1 : } alternate as inputs. 

100 5 101 : 1 i INPUTS 

130 : 13 ¢ : VAL_DESC - Pointer to NRO data type value descriptor. 
710040 101 $1 i QUTPUTS 

31 1 131 1 ‘ VAL_DESC is returned. 

31 § 10128 1 : 

31004 10129 1 

310044 is 0 BEGIN 

$1008 10132 ap 

£100e? 101 ‘ VAL_DESC: REF DBGS$VALDESC; ! Pointer to value descriptor 
£100¢9 10135 LOCAL 

310050 101 § LEAST_SIG_DIGIT: REF VECTORC,BYTEJ;! Pointer to the least significant 
310051 101 : digit 

ft es 

310054 10140 ! In RPG, as yint | een of least significant digit and sign 
310055 10141 ' both normal/alternate ASCII char. can be accepted in RPG. 
310056 118g ' but RPG choose one format to be the standard output format. 
thet t4 ipier In here we simply map it into the standard output format. 
310059 10145 LEAST_SIG_DIGIT = VAL DESCCDBGSL_VALUE POINTER] + 

10060 10146 .VAL_DESCCOBG$W_VALUE-LENGTA) = 1; 

£10062 19148 

#10068 34 We perform the following mapping: 

310065 10151 i Input Output 

310066 1Ot26 ' norm. alt. 

310067 1015 - OC? 0 

310068 10154 ' oA 1 1 

310069 10155 ! 8B ¢ § 

310070 10136 . <£ 

:10071 1015 ' 9p 4 4 

3 Ire 10138 ; = 5 5 

31007 HF :. ¢ § § 

310074 10160 . £ 

£10076 19183 foe & ; 

£1007? 1Die8 : } J:! ) 

£16079 19188 IF .LEAST_SIG_DIGITCO) EQL *{* OR 

310080 19168 -LEAST_SIG_DIGIT EQL Pe OR 

310081 1016 »LEAST_SIG_DIGIT EQ. ‘C* OR 

31 § 1 168 -LEAST_SIG_DIGIT EQ. ‘?° 

31 1 18 HEN 

2 1808S : 10 LEAST_SIG_DIGIT(CO) = ‘0°; 

10086 10172 IF .LEAST_SIG_DIGITCO) GEQ ‘A* AND 


N 2 
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Mite ~9een 1982 99:82:82 = ORale. Saclopeevacde.o85;7 oe 78) 


:10087 10173 -LEAST_SIG_DIGITCO] LEQ ‘1' 

[10088 10174 N 

: 10089 i%e LEAST_SIG_DIGITCO] = .LEAST_SIG_DIGITCO) = %x'10'; 
:10091 1017 IF .LEAST_SIG_DIGIT(CO] EQL '}' OR 

: 10098 1 178 .LEAST-SIG-DIGITCO) EQL af OR 

i) ett EST SHSbIetHE} EE 12 

: 19095 10481 Stas ion naman 1 

BE me mse: 

710099 10185 ppc. steers 


0000 00000 salsa at Se RPG: 


D” Save nothin : 1011 

51 04 AC pO 00002 MOVL § VAL_DESC, R + 1014 

50 14 Al 3C 00006 MOVZWL g0(R1), RO + 1014 
50 18 «Al £6 0000A ADDL2 24(R1). RO : 

78 «BF 70 91 9000¢ CMPB ss = (LEAST_SIG_DIGIT), #123 : 1016) 
10 13 0001 BEQL ; 

30 60 91 b0014 CMPB = (LEAST_SIG_DIGIT), #48 + 1016 

08 13 00017 BEQL. si ; | 

SB OF 60 91 00019 CMPB (LEAST_S1G_DIGIT), #91 : 1016) 
05 13 0001D BEQL Ss F 

3F 60 91 0001F CMPB = (LEAST_SIG_DIGIT), #63 : 1016 
9 If 00022 BNEQ 2$ : 

60 0 90 00024 1$: MOVB #48, (LEAST_SIG_DIGIT) > 1017) 

41 BF 60 91 00027 28: CMPB = (LEAST_SIG_BIGIT), #65 : 1017 
09 1F 00028 BLSSU 3 ; 

49 = «BF 60 91 0002D CMPB = (LEAST_SIG_DIGIT), #73 : 1017 
03 1A 00031 BoTRy 3$ ; 

60 10 82 0033 SUBB2 #16, (LEAST_S$IG_DIGIT) : 1017 

7D ~=s«aBF 60 91 00 é 3$: CAPR (LEAST _S16_51617), #125 + 1017 

5D soaBF 60 4 00 CMPB ss (LEAST_SIG_DIGIT), #93 : 1017 
A 13 0004 BEQL $ F 

3A 60 91 0004 CMPB (LEAST_S1G_DIGIT), #58 : 1017 
§ 13 0004 BEQL = 4 ; 

21 0 9 0 47 CHPB (LEAST_SIG_DIGIT), #33 : 1018 

60 7D ~=—s«BF 6 004C 4$: MOVB #125, (LEAST_SIG_DIGIT) F 1018 

1 p 0050 5$: MOVL 1, RO : 101 
4 0005 RET > 1018 


; Routine Size: 84 bytes, Routine Base: DBGSCODE + 2666 


;10100 10186 1 


RAEN EE BGM 2 OES le: SN RO hs Era st RE 


ae eee FROM 0 TO DBGSK_MAXIMUM_DTYPE + RSTSK_TYPE_MAXIMUM OF 


! If the other operand is piset tne. then the conversion is packed => 

! float. The type of floating point conversion (whether to single or 
! double precision, or to te a or hfloat) depends on both the number 
! of digits in the packed decimal number, and in some cases, on the 
type of the other operand. 

C 


3 
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vOee ~Sep-19 4 90:32:82 DEBUG. SRC IDBGEVALOP.83 31 ° (49) 
} 188 ROUTINE MAP_PACKED (NEW_TYPE, DIGITS, OTHER_TYPE): NOVALUE = 
1 189 ' FUNCTION ; 
1 190 : This routine maps a packed decimal type to another type. This cannot 
1 191 : always be done in the hierarchy tables; in the case of converting 
107 136 ; packed to floating point, it is necessary to know how many digits are 
} : \3? } involved before mapping the type. 
110 195 ! INPUTS 
111 196 : NEW_TYPE - The address in which to place the new type. On 
1 ¢ 197 ' entering the routine, it should already point to 
1 198 / type DSCSK_DTYPE_P. 
114 199 : DIGITS - The number of digits in the peches decimal number. 
115 200 4 OTHER_TYPE - In certain instances, the other operand helps in 
116 201 : determining how to map the goched decimal number. 
117 oe : For example, if there are 15 digits in the packed 
118 0 : decimal number: it is mapped to gfloat if the other 
119 04 : operand is gfioat, hfloat if the other operand is 
120 205 : hfloat, otherwise double. 
121 206 : 
1 ; 20 ‘ OUTPUTS 
; : $ } A new type may be returned in NEW_TYPE. 
125 $1 BEGIN 
139 51 
128 21 ! Expect NEW_TYPE to already point to a packed decimal type. This assures 
129 21 ! that we have at least one packed decimal operand, and can case on the 
; ° | other. 
1 : 2 IF ..NEW_TYPE NEQ DSCSK_DTYPE_P 
1 2 THEN 
; 2 RETURN; 
1 
1 2 
1 2 
1 2 
1 2 
1 2 
1 2 
1 2 
; 2 
} ; 
: 5 
; 2 


a ed ed ed ed od ed 8 ed dd dd dd dd dd dd dd dd dd 


DPA BB BBB EE AWN AIA DIDI NINIPNNy 2 2 2 SS | 4 OOOOOOCOO 
BPH EAA AAI URIPIPIPONDINYNPYINYNIPYNIPYNIPYNININININPYININIDY 2 9 9 I OS St 


6 3 DSCSK_DTYPE_F, DSCSK_DTYPE_D, DSCSK_DTYPE_G, DSC$K_DTYPE_H]: 
8 ; CASE DIGITS FROM 1 TO DBGSK LARGEST PACKED OF 
0 : 
1 ; {1 TO 6): 
138 .NEW_TYPE = DSCSK_DTYPE_F; 
1 38 
154 39 (7 To 15): 
155 40 EGIN 
156 41 IF .OTHER_TYPE EQL DSCSK_DTYPE_G OR 
157 34¢ “OTHER-TYPE EQL DSCSK~DTYPE— 


aaa 


3 
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04 f-se0-19 4 3 8g:82 DEBUG. SRCIDBGEVALOP.B3 31 


a $DBG_ERROR ("DBGEVALOP\MAP_PACKED'); 


210128 18 re} : NEW _TYPE = .OTHER_TYPE 
10161 10s 4 .NEW_TYPE = DSCSK_DTYPE_D; 
3 10166 1024 ND; 

19182 19569 (16): 

710165 10 30 .NEW_TYPE = DSCSK_DTYPE_D; 
io1es 19583 (17 To 312: 

£10168 18 38 .NEW_TYPE = DSCSK_DTYPE_H; 
[10170 19 55 COUTRANGE: 

310171 10256 SIGNAL (DBGS_ILLTYPE); 

3 1O1%6 10257 TES; 

31017 10258 RETURN; 

310174 10259 END; 

10176 1056) 

210177 10666 ! Presently, the other type conversions involving packed decimal types 
710178 1026 ! can be handled through the hierarchy tables. 
210179 10264 : 

310180 10265 § CINRANGE): 

EES clea 

[10183 1026 : COUTRANGE): 

310184 1026 § 

710185 1027 

310186 10271 1 


“—OoOeon 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


5F 50 41 4D 5C S50 4F 4C 41 56 45 47 42 44 14 0617D P.AMT: .ASCII <20>\DBGEVALOP\<92>\MAP_PACKED\ 
44 45 48 43 41 50 0618C 


.PSECT DBGSCODE.NOWRT, SHR, PIC.O 
000C 00000 MAP_PACKED: 
WORD 


Save R2,R3 
g5 coonongeS BP es Shoes ae hee tier aa 
1 62 D1 00000 CMPL (R23, #24 
01 13 90019 BEQL 1$ 
04 O18 RET 
00000041 =F 00 OC ac CF 00013 18 CASEL OTHER_TYPE, #0, #65 

OOF F OOF F OOF F OOF F aie Ne 23 «WORD 10$-2$,- 
OOF F OOF F OOF F OOF F 0024 10$-2$.- 
0096 0096 OOF F OOF F 990 ¢ 10$-2$.- 
OOF F OOF F OOF F OOF F 00 10$-2$,- 
OOF F OOF F OOF F OOF F 003¢ 10$-2$.- 
OOF F OOF F OOF F OOF F 0044 10$-2$,- 
0096 OOF F OOF F OOF F 004C 10$-2$,- 
OOF F OOF F OOF F 0096 0054 10$-2$,- 
OOF F OOF F OOF F OFF 0005¢ 10$-2$.- 


SEI eB: ee aT BARR ce, At a MARNE 


a 


351 


j 
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L] seeeeeeepeeeceeee eeoeepeeeeepeeeeepeereeerereereperereeeeeeeeeees 
. 


*teteeesee ee ee *es es ese ss 8 ef fF ©Sseeeee ese se 8 & ss es se 8S 8 te eeeeeesees es 8 & & & & © & &©& & & 


io See eee eee eee eee eRe eee eee eee eee eee eee eee eee eee ee eee) 
PL §ADAAAAAARAAAAAAABAA 1 | AHAAAAAA AA AAA AAPAA AAA AA AAPAAAAAAAAAPAAAAAA 
COAAQWQOOOCOOOCOOOOOOOH AO OOOO OCOOOCOGCOCOCCOCOCOCOCOOCOOOOOCOSOOOOOOOOOoOOo 


OI MN OR OO OO OOO OO OOO Omer 


BONN DOr 


Seer 
A be Oe. Oe te he 
oooooooo 
COoooo0cee 


See eee 
Me Oe A a 
oa fofofleolelelolqo) 
COOOC0oo 


ee eS ea eae {- 


-Sep-1984 


| 
00000000' Ff 9F OOOA0 
DD BR Ag 
00028362 at DS OO0A 
63 03 FB OOOAE 
01 08 ac CF O0082 35 

0048 9048 0048 nocd bons 4$: 
004C 004C 0048 0048 OOBF 
004C 004C 004C Bree $34 
0050 004C 004C 04C OOCF 
0061 0061 0061 0061 00007 
0061 0061 0061 Boe) BORO F 
0061 0061 0061 061 00E7 
0061 0061 0061 OOOEF 
000287D8 8F DD OO00FS 
63 01 FB OO0FB 
04 OOOFE 

62 OA DO OOOFF 5$: 
04 Oo 10 

18 OC AC 01 00105 6$: 
06 13 BOI! 
1C Oc AC D1 00109 
05 is 00100 

62 Oc AC 00 OO10F 7$: 
04 00113 

62 0B 80 pots 8$: 
04 00117 

62 1¢ B0 00118 9$: 

4 0011B 10$: 
; Routine Size: 284 bytes, Routine Base: DBGSCODE + 26BA 


3 
Sep-1984 + 9: 3: $2 


DEBUG. 
PUSHAB P.AMT 
PUSHL # 


USH 
PUSHL #164706 
CALLS #3, LIBSSIGNAL 
CASEL DIGITS, #1, #30 
-WORD 5$-4$,- 

5$-4$,- 

5$-4$.- 

5$-4$.- 

5$-4$.- 

5$-4$.- 

6$-4$.- 

6$-4$.- 

6$-4$.- 

6$-4$.- 

6$-4$.- 

6$-4$.- 

6$-4$.- 

6$-4$.- 

6$-4$.- 

8$-4$.- 

9$-4$.- 

9$-4$.- 

9$-4$.- 

9$-4$.- 

9$-4$.- 

9$-4$.- 

9$-4$.- 

9$-4$.- 

9$-4$.- 

9$-4$.- 

9$-4$.- 

9$-4$.- 

9$-4$.- 

9$-4$.- 

-4$ 

PUSHL #165848 
CALLS #1, LIBSSIGNAL 
MOVL #10, (R2) 
RET 
CMPL OTHER_TYPE, #27 
BEQL : 
CMPL THER_TYPE, #28 
BNEG 
MOVL  OTHER_TYPE, (R2) 
RET 
MOVL #11, (R2) 
RET 
MOVL #28, (R2) 
RET 


AX-11 H 13 


s-32 V4.0-74 
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(49) 
1026 


1023 


1025 


1023 
1024 
1024 
1024 
1025 


1025 
1027 


&. 
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voe=000 eet Pi 3 8g:82 {DEBUG. SRC DBGEVALOP .832;1 


ROUTINE MAP_PLI_TYPE_SIZE (VALDESC, TYPE, SIZE, SRC_FLAG): NOVALUE = 


! FUNCTION 

PL/I run-time routines do not follow the VAX ae standard. They 
also do not understand VMS descriptors. Consequently, this routine 
was developed to map dtypes to PL/I specific types, and to determine 
the correct size for that specific type. This information is 
required in the interface to a PL/I routine. 


INPUTS 
VALDESC = Pointer to a value descriptor. 


TYPE - Address where tc place the PL/I specific type. 
SIZE - Address where to place the size of the type. 


SRC_FLAG = Set to TRUE to indicate this is the source, 
set to FALSE to indicate this is the target. 


31 10 ¢ 1 

31 10 1 

31 10274 1 

31 10275 1 

31 10 § 1 

31 10 1 

31 10278 1 

31 10279 1 

31 10280 1 

31 10281 1 

31 10 ¢ 1 

31 10 1 

31 10264 1 

31 10285 1 

31 10286 1 

31 10287 1 

31 10288 1 

31 10289 1 

310206 10290 1 

310207 10291 1 OUTPUTS 

‘1 4 138 ¢ : The PL/I specific data type and size are returned in TYPE and SIZE. 
310210 10294 $ BEGIN 

310211 10295 

310 \¢ 10296 2 MAP 

31021 10297 2 TYPE: REF VECTORC1), 

310214 10298 2 SIZE: REF VECTOR(1), 

310215 10299 2 VALDESC: REF DBGSVALDESC; 

310216 10300 2 

310217 10301 2 OCAL : 5 

310218 10302 2 SIZE_BYTE: REF VECTORC,BYTE), ! Size in byte vector 
310219 10303 2 LANG . ! Language code , 
310220 10304 2 PICTPTR: REF VECTORC,BYTE), : Pointer to picture representation — 
310221 10305 2 PICTVAL, : Pointer to language specific encoding 
31 $$ 10306 2 PSCALE: VECTOR(2, BYTE]; ! Digits and Scale 
31022 10307 2 

310224 10308 § 

310225 10309 SIZE_BYTE = .SIZE; 

310 $$ 10310 2 S$1ZETO) = 0; 

310 st Wet) 2 CASE, ALDESCEOOSSS_VALUE _DTWPES FROM 0 TO DBGSK_MAXIMUM_DTYPE OF 
310 $3 19318 CDSCSK_DTYPE_B) 

310230 10314 BEGIN 

310. 4 3 type bod = DEGSK_PLI_FIX_BIN: 

310 ; 10316 SIZELO) = 7; 

31023 10317 END; 

310 34 10318 CoSC$K_bTYPE_w): 

310235 10319 BEGIN 

3102 10320 rye tod = D9GSK_PLI_FIN_BIN; 

att 193 1 pize 0] = 15; 

£19539 103 Coscsx STYPE_L): 

310240 10324 BEGIN 

710241 10325 ha 45 = ROGSK_PLI_FINBIN: 

210 $g 10 § SIZECO) = 31; 

31024 10 END: 

7102464 10328 Cosc$x_bTvPeE_F): 
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3 
GEVALOP Ibege =1984 00:32:25 AX-11 Bliss-32 V4.0-74 Page 317 
ita ty =300n 138i 90:32:82 DEBUG. SRC IDBGEVALOP.B3 31 ° (353 
63 06 AE 0 D4 MOVL PICTVAL, (R3) : 1035 
4 0g RET 7 10 

08 BC A D0 00009 128: MOVL #10, a@TYPE : 1035 
7 11 D BRB 17 * 1035 

08 BC B D9 DF 13$ MOVL #11, @TYPE : 1036 
1F 19 AC E 3 BLBC C_FLAG, 17$ : 1036 

20 1 A 0 E MOVL 4(R2), VALPTR : 1036 

é C 000EB MOV2WL (VALPTR), (R3) : 1036 

4 OOOEE RET ; 1036 

08 aC 04 00 OOOEF 148 MOVL #4, @TYPE : 103 
01 AG 1¢ ag 3 OF 8 MNEGB 28(R2), 1(SIZE_BYTE) : 1038 
64 6 OF MOVB (R5), (SIZE_BYTE) : 1038 

04 'B RET + 1031 

08 BC OE DO OOOFC 15$: MOVL #14, aTYPE + 1038 
04 11 00100 BRB 17$ : 1038 

08 BC 0¢ b0 00102 16$: MOVL #2 atyPE : 1039 
6 65 3C 00106 17$: MOV2wL (R55, (R3) : 1039 
04 00109 RET + 1040 


; Routine Size: 266 bytes, Routine Base: DBGSCODE + 2706 


———————__— 
_DBGEVA oP 


04 
310320 10403 1 
[10321 10404 1 
10 é 10405 1 
210 10406 1 
710324 10407 1 
710325 10408 1 
10 § 10409 1 
10 10410 1 
710328 10411 1 
10329 10418 1 
310350 1041 1 
[10331 10614 1 
310 é 10415 1 
10 10416 1 
310 10417 1 
710335 10418 1 
[10336 10419 1 
110337 10420 1 
10338 10421 1 
£10820 19053 
i te 
mee 
710345 10428 1 
10346 10409 1 
£10347 10430 1 
710348 10431 1 
210349 1045 1 
710350 10433 1 
710351 10454 1 
ee 18 
£10354 10437 1 
710355 10438 1 
710356 10439 1 
£19888 ipee 
119300 19ee$ | 
710361 10444 1 
i 10368 10445 1 
319807 1044 1 
10 10447 1 
£1b366 19609 
1089 10450 1 
710368 10451 1 
10369 1045¢ 1 
: 10570 10453 1 
10371 10454 1 
:1057@ 10455 1 
31037 12638 1 
710374 10657 1 
710375 10458 1 
710376 10459 1 


ROUTINE MODIFY PLI_ TARGET TYPE(OPERATOR, LEFT_TYPE, RIGHT_TYPE, 
NEW _LEFT_TYPE, NEQ_RIGHT_TYPE, NEW_ROOT_INDEX, 
HIER TBL> HIER_TBL-SIZE 
INCOMP_TBL, INCOMP~TBL_SIZE, 
ROUT_TBL, ROUT_TBL“SIZE) : NOVALUE = 


FUNCTION 
This routine is used to adjust the target data type based on 
the type of the other operand for arithmetic and relational 
operators in PLI. 


PLI has very unique type conversion rule, which differs from 
the other Languese . graph ater ereee scheme stand alone can 
not satisfy the needs without modification. This routine 

is a separate routine to serve the needs. 


After the walking the graph from previous FIND_JOIN, we know 

the data types we work with are valid. First we check the 

operator, if the operator is not one of the arithmetic/relational 
operators, we know the result from FIND JOIN is ok. Second, 

we check to see if one of the operands fas data type V. VU, T, or VT, 
if not, we know the result from FIND JOIN is ok. hird, we modify 
the target based on the following tables: 


go eetewaeoes tere ses nee tb owowm ere me Pema moere - eee een wen tere receene ++ 
4 : B,.U.t ! P :F.D.6.8! Vw ! TWF ! 
$e men ee eee a oo 
{! 6.U.L !$ B6.U.t $ B.W.L ! F.D.6.H ! L : L ; 
eoeccecce Pe, Se, See, ey emery 
: P : L ! P ! F,D,G,H ! L : P ; 
towoccece wee tess seen wet ee ener eee fesceens see peewee ence Fewer ernwces + 


H F,D,G,H ! F,D,G,H ! F,0,G,H ! F,D,G,H ! F,D,G.H ! F,D.G.H ! 


wee eee eec¢ emma ne nee eee sce sees eta e esos eee $e ee meee ee te mee wecaa} 


: V.wU L : L F.D,G,H ! #1 : L . 
+ + . + + 


*1 = Relational operator: no change for data types. 
Arithmetic operator: L 


*2 - Relational operator: no change for data types. 
Arithmetic operator: P 


Note: Unary operator does not have the problem, so this routine 
only works with binary operator. 


Note: FIXED_BIN, FIXED_DEC, FLOAT DEC, CHAR, CHAR_VAR, BIT, and 
BIT_ALGNED are the data types we Know in PLi. (there are others 


ie.> FLOAT_BIN, BIT_VAR.). 


INPUTS 

OPERATOR - Token Operator. 

LEFT_TYPE - Original left data type. 
RIGHT_TYPE - Original right data type. 
NEW_LEFT_TYPE = 


The address of the new left data type. 


k 3 
16-Sep-1984 00:32:25 AX-11 Bliss-32 V4.0-74 
Haat 9:82:54 DEBUG. SRC IDBGEVALOP..B3 31 
T 
0 


3 
vou-000 VESeochgHs OORRGE YABSIL RLgSRE MteBZ43,, Pane 


310377 1 160 1 ! VEWLRIGHT_TYPE = The address of the new right data type. 
31037 10461 1 : EW ROUT_INDEX = The address of the new corresponding routine index. 
31037 1 ra) 1 : wIER_TBL - Hier. table. 

310 30 10465 1 : ‘ER_TBL_SIZE = Hier. table size. 

» 10381 10464 1 : OMP_TBL - Incomp. table. 

310 ¢ 10465 1 | ‘OMP"TBL_SIZE = Incomp. table size. 

310 1 rt) 1 ! e UT TEL - Rout. table. 

310384 Hr 1 :  JTLTBL_SIZE = Rout. table size. 

£10386 10ces | i outputs 

10 a 19276 1 : If there is modification NEW targer data type is returned along 
318 a8 eg 1 : with corresponding routine index. 

310389 1 ate 1 ' 

310390 104735 1 

i mt a 

1039 10476 MAP 

#10394 10477 OPERATOR: REF TOKENSENTRY 

310395 10478 NEW_LEFT_TYPE: REF VECTORC,LONG) 

310396 10479 NEW"RIGHT TYPE: REF VECTORE LONG), 

310397 10480 NEW-ROUT_INDEX: REF VECTORC,LONG); 

310398 10481 

310399 Ht LOCAL 

310400 1048 LEFT 

310401 10484 RIGHT 

i 1040¢ 10485 GRouPi, 

Bt ety ees GROUP2; 

310405 10488 

310406 10489 $ ! We only worry about this set of tokens. If the token is not in the set 
St ett Ht § simply returns. 

310409 + 4 GROUP1 = FALSE; 

310410 1049 GROUP2 = FALSE; 

310411 10494 IF .OPERATOR TOKENSW_CODE EQL TOKENSK_ADD OR 

21 lg 10495 -OPERATORLTOKENSW_CODE) EQL TOKENSK_SUBTRACT OR 
31041 10496 -OPERATORCTOKENSW_CODEJ] EQL TOKENSK_MULTIPLY OR 
21g + 9 44 ‘ ,OPERATOR TOKENSW_CODE] EQL TOKENSK_DIVIDE 

310416 10499 GROUP1 = TRUE 

£10618 10801 ELSE 

310419 1050 BEG! 

310420 19808 IF .OPERATORCTOKENSW_CODE) EQL TOKENSK_EQUAL OR 
310421 10504 -OPERATORLTOKENSW_CODE) EQL TOKENSK_NOT_EQUAL OR 
3104 ; 10505 -OPERATOR[L TOKENSW_CODE) EQL TOKENSK_GTR_THAN OR 
7106 1 506 -OPERATOR( TOKENSW-CODE) EQL TOKENSK-GTR-EQUAL OR 
310424 1050 -OPERATORE TOKENSW_CODE) EQL TOKENSK“LSS-THAN OR 
310425 10508 -OPERATORLTOKENSW_CODE) EQL TOKENSK_LSS_EQUAL 

3 186 § 10509 THEN 

2106 i pate GROUP2 = TRUE 

31 9 1 218 ELSE 

31 1051 RETURN 0; 

31 1 10514 END; 

31 ; 10515 

3104 10516 


m 3 
vos-000" SrSep=198e 24:56:86 — EDkauG.SacSbacevaLoP.o3s;1 = "88° 349 


310434 10517 ! Smash VT to T, VU to V. As far as this routine's concern, they are 
i] 5 : 18 } treated the same. In this way, we reduce some data types to handle. 
104 10520 LEFT = .LEFT TYPE; 

$104 § 1 3 1 RIGHT = .RIGAT TYPE; 

104 19 : IF .LEFT EQL DSCSK_OTYPE_VT THEN LEFT = DSCSK_DTYPE_T; 
310440 1 : IF .LEFT EQL DSCSK_DTYPE VU THEN LEFT = DSCSK_DTYPE Vv; 
310441 10524 IF .RIGHT EQL DSCSR_DTYPE_VT THEN RIGHT = DSCSK_DTYPE_T; 
£10448 10525 IF .RIGHT EQ) DSCSK-DTYPE-VU THEN RIGHT = DSCSK-DTYPE-V: 
31044 105 § 

310444 105 

310445 G2 3 ! We only worry about this set of data types. If one of the operand 
310446 105 ' is V or T then we need to modify the target. Otherwise, simply 
310447 10530 ' returns. 

310448 10531 ! 

310449 105 g iF .LEFT_TYPE NEQ DSCSK_DTYPE_V AND 

310450 105 -LEFT_TYPE NEQ DSCSK_DTYPE_T AND 

310451 10534 -RIGHT_TYPE NEQ DSCSR_DTYPE_V AND 

3 10636 10535 »RIGHT_TYPE NEQ DSCSK_DTYPE_ 

31045 10536 N 

310454 eh RETURN 0; 

310455 10538 

310456 10539 

310457 10540 ! Filter out V op V, T op T, V op T, T op V cases. 

310458 10541 ' 

310459 10542 IF (LEFT EQL DSCSK_DTYPE_V AND .RIGHT EQL DSCSK_DTYPE_V) OR 
310460 1054 (,LEFT EQL DSCSK_DTYPE_T AND .RIGHT EQL DSCSK_DTYPE_T) OR 
310461 10544 (.LEFT EQL DSCSK_DTYPE_V AND .RIGHT EQL DSCSK_DTYPE_T) OR 
2 10666 10545 (.LEFT EQL DSCSK_DTYPE_T AND .RIGHT EQL DSCSK_DTYPE_v) 
31046 10546 ¢ THEN 

310464 10547 BEGIN 

310465 10548 

310466 10549 

310467 10550 ! If this is relational operator, then we all set. 
310468 10551 ! 

310469 19338 IF .GROUP2 

310470 1055 THEN 

310471 10554 RETURN 0 

3 100% 19333 

31047 1 228 

310474 1055 ! If this is arithmetic operator, modify the target. 
310475 10558 : 

310476 10559 ELSE 

By 34 19260 4 BEGIN 

310478 10561 4 IF .LEFT EQL DSCSK_DTYPE_T AND .RIGHT EQL DSCSK_DTYPE_T 
310479 1 266 4 THEN 

31 $0 1056 BEGIN 

31 1 10564 NEW_LEFT ryretea = DSCSK_DTYPE_P; 

31 ¢ 10565 NEW-RIGHT_TYPELO) = DSCSR_DTYPE_P; 

31 1 266 N 

31 1056 

310485 1 208 4 ELSE 

31 1 8 N 

31 1 0 NEW_LEFT bia 357) = DSCSK_DIYPE_L; 

ite 10571 NEW-RIGHT_TYPECO) = DSCSR_DTYPE_L; 

310489 1 4 ; 

3104 10575 4 


<9 
p44 
dc 
SF 
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7) 
1 
nt 
1049 1 3 0 
£10099 19882 
710500 105 : 
$1090) 133 4 
110808 19886 
319988 10588 
£19208 10590 
710508 10591 
£10810 19898 
19H 19898 
10818 10596 
710514 1059 
ie Raa 
10819 10600 
710518 10601 
e888 
710521 10604 
2105 é 10605 
105 10606 
710526 1060 
:10988 10608 
2105 6 10609 
+1085 19619 
1 rn 
i nt tt 
10858 19846 
£10885 19648 
710537 10620 
310538 10621 
710539 1 ; 
: 10940 1 
310541 1 4 
310366 1 5 
£1084 10626 
310544 1 
10545 1 8 
31 266 1 
31054 10630 
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Get the corresponding routine table index. 


Ax-11 8 
s 


DEBUG. SRC IDB 


if .MAX_DEPTH EQL FIND QIN 
.NEW_LEFT_TYPECO), .NEW RIGHT 1yPECOI, 
NEW_CEFT_TYPE NEW_RIGHT_TYPECOJ, 
NEW-ROUT-INDEXCOS, 
0, sMAX_BEPT 
HIER TBL, .HIER_TBL_SIZE 


-INCOMP_TOL, .INCOMP"TBL_SIZE, 
-ROUT_TBL, .ROUT_TBL-SIZE) 


HEN 
SIGNAL (DBG$_OPNOTALLOW, 1, OPERATORCTOKENSB_OPLEN]); 
RETURN 0; 
END; 
END; 


Now we have V op (B, W, L, P, F, D, G, H) or T op (B, W, ...) cases. 
iNCR I FROM 0 TO 1 DO 

BEGIN 

LOCAL 
TYPE, OTHER_TYPE; 


IF .1] EQL 0 
THEN 
BEGIN 
TYPE = .LEFT 
PE = 


OTHER_TYPE = .RIGHT; 
END 


ELSE 


TYPE = .RIGHT 


OTHER_TYPE = <LEFT; 
END; 


SELECTONE .TYPE OF 
DSC$K_DTYPE_L): 


NEW_LEFT Tyret ea = DSCSK_DIYPE L; 
WE RIGHT TYPE ] = DSCSR_OTYPE_L; 


CDSC$K_DTYPE_B, DSCSK_DTYPE_W, DSCSK_DTYPE_P): 
BEGIN 


! Apparently, PLI documentation and PLI compiler have a different point 
! of view to decide which target to assign. This is the reason we 

' commented out this piece. We take PLI c iler’s result. 

F “0 HER_TYPE EQL DSCSK_DTYPE_V 

‘ 


; BEGIN 
; NEW _LEFT_TYPECO) = DSCSK_DTYPE_L; 
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35 
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-Sep-1 
BEN RECHT THPECOS = DSCSK_DTYPE_L; 


PAAAAAOO 


GIN 
WLLEFT_ TYPECO] = DSCSK_DTYPE P; 
URIGHT_TVPELO3 = DSCSR_DTYPE_P; 


! This is not really needed. Because the graph can take care 
of these nicely. I Left this in for documentation purpose. 


CDSC$x DTYPE.F, DSCS$K_DTYPE_D, DSCSK_DTYPE_G, DSCS$K_DTYPE_H]: 


B 
NEW_LEFT_TYPECO] = .TYPE; 
NEWORIGHT_TYPECOJ =". TYPE; 
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CDSC$K_DTYPE_V, DSCSk_DTYPE_T3: 


TES; 
END; 
IF .MAX_DEPTH EQL FIND JOIN 


if 
N 0 
NEW-ROUT” INDEXC 
oH 
| 
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THEN 

SIGNAL (DBG$_OPNOTALLOW, 1, OPERATORCTOKENSB_OPLEN)); 
RETURN 0; 
END; 
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7C 0000 CLRQ = GROOP1 > 1049 

50 04 BC 10 10 EF 00008 EXTZ2V #16, #16, @OPERATOR, RO > 1049 
06 50 81 00011 CMPW 8=séRO, #6 ; 
F 13 00014 BEQL sé : 

07 0 81 18 CMPW 3S séRO, «#7 > 1049 
A 13 0001 BEQ. =s«a1$ ; 

08 0 8} 1B CMPW = soRO, #8 + 1049 
§ 13 00 1 BEQ. Ss ; 

09 0 Bi 0002 CMPW = soaRO, #9 > 1049 
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DBGEVALOP 16-Sep-1984 00:32:25 AX-11 Bliss-32 V4.0-74 Page 326 
vos g73e8713 4 90:32:82 DEBUG. SRC IDBGEVALOP.B3 31 ’ (338 
310590 10672 1 ROUTINE PLI_TYPE_CONV (VALUE1, VALUE2) = 
Me HR] stig 
31059 10675 1 : Performs PLI language-specific type conversion on the given 
310594 12978 1 ! descriptors. 
Wee TRE | ants 
ie We || SRE) = ABER este Seeriger fer es tors 
; : - alue descriptor for r 
eT urea Say 
10808 19688 A pointer to the result descriptor is returned. 
31060 10685 BEGIN 
310604 10686 
310605 10687 ENABLE 
310606 10688 PLI_HANDLER; 
i883 i 
10609 10691 ; VALUE] : REF DBGSVALDESC, 
310610 H's 24 VALUE2 : REF DBGSVALDESC; 
AB UBBRE 
£10618 10695 2 SRC_ADDR, DST_ADDR, 
310614 10696 2 SRC_TYPE, DST TYPE, 
310615 10697 SRC_SIZE DST_SIZE 
: 10616 698 SRCTOFFSET, DSTIOFFSET; 
710618 10700 2 
310619 10701 ! In PL/I, special conversions are required when going to/from 
310620 1 re i bitestrings. PL/I bit-strings are stored in reverse order in 
310621 1070 ! memory; although they are mapped to type DSCSK_DTYPE_TF, this 
3 12 Ose 10704 ! means that they cannot be converted by DBGSCVT_DX_DX, which 
2 IOs? : re ; } treats bit-strings Like integers. 
:19625 207 : Get the source and destination pointers. 
£10639 1070 SRC_ADDR = .VALUE1CDBGSL_VALUE_POINTER); 
310628 1 DST-ADDR = .VALUE2CDBGSL~VALUE~POINTER); 
3 10668 1 
3710630 1 2 
i 31 : 2 
31 38 1 
31 1 
31 1 
31 1 
31 1 
31 1 
31 1 
31 1 
31 1 
71 1 
31 1 
31 1 
31 1 
31 1 


SOOOSOSOOCOOCOOCOOOCOOCOCOCOCOCOOSoOOOoOOCoCoooO 


708 
709 
710 
711 
06 ne 
06 71 ! Map the current dtype to PL/I specific types; calculate the 
be me size for the type. 
06 716 MAP_PLI_TYPE_SIZE(.VALUE1, SRC_TYPE, SRC_SIZE, TRUE); 
0635 717 
Boee 718 
pee. ahs Get the digit and scale info from picture data type. 
0639 721 IF .VALUE1CDBG$B_DHOR_FCODE] EQL RSTSK_TYPE_PICT AND 
0640 7 § . VALUE 2CDBG$B_ VALUE _DTYPE] EQL DSCSR_PTYPE_P 
ee } 4 MEN BEGIN 
Seg 725 OCAL 
0644 7 $ PICTVAL: REF VECTORC,BYTE): 
0645 7 
0646 728 PICTVAL = .SRC_SIZE; 


‘ ae 
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310647 10729 VALUE2CDBG$B_VALUE_DIGITS] = .PICTVALCO]; 

3 1Roe8 10750 

31064 10731 

; 10650 107 § ! mote: PLIRTL epects fo see positive scale 2 for (12.34), 
2198 1 i ? } normally we'll have -2 as the scale. 

£10688 10735 VALUE2CDBG$B_VALUE_SCALE] = = .PICTVAL(1); 

3 10688 107 $ END; 

310655 107 

5 13038 10738 MAP_PLI_TYPE_SIZE(.VALUE2, DST_TYPE, DST_SIZE, FALSE); 

31065 10739 

310658 seat 

310659 10741 : Determine the bit offset. This should be zero for aligned types. 
; 10660 544 ! The CDBGSL_VALUE_POS] field of the value descriptor could be 
310661 1074 ! garbage for packed decimal types, but PLISCVRT_ANY ignores the 
he) 10744 ! offset for any types except those that might be unaligned. 
31066 10745 : 

310664 10746 SRC_OFFSET = 0; 

310665 10747 DST_OFFSET = 0; 

10666 10748 IF [VALUE1CDBG$B_VALUE_DTYPE] EQL DSCS$K_DTYPE_vuU 

310667 10749 THEN 

2 13008 i ta SRC_OFFSET = .VALUE1COBGS$L_VALUE_POS); 

310670 ta IF .VALUE2CDBG$B_VALUE_DTYPE] EQL DSCSK_DTYPE_vuU 

310671 1075 THEN 

2 10676 10754 DST_OFFSET = .VALUE2COBGS$L_VALUE_POS); 

31067 10755 

310674 10756 

310675 10757 2 ! Call a PL/I run-time routine to do the conversion. 

310676 10758 § ‘ 

310677 10759 PLISCVRT_ANY (SRC_ADDR, .SRC_TYPE, .SRC_SIZE. .SRC_OFFSET 
310678 10760 2 DSTADDR, .DST-TYPE, .DST-SIZE. .DST-OFFSET); 
310679 10761 2 

310680 4 2 RETURN .VALUE2; 

310681 10763 1 END; 


Q000C 00000 PLI_TYPE_CONV: 
. WORD 


Save R2,R3 : 1067 
SE 18 C2 0000 SUBL2 #24, SP ; 
+ 007C CF E it MOVAL 4$, (FP) : 1068 
2 04 AC 7D O000A MOVQ. VALUE1, R2 : 1070 
14 AE 1 Ag D0 000 MOVL sein ), SRC_ADDR ; | 
10 AE 1 A b0 01 MOVL 4(R5), DST_ADDR : 1071 
01 DD 0001 PUSHL #1 : 1071 
4 AE OF gi PUSHAB SRC_SIZE 3 
C as 9F 0001 PUSHAB SRC_TYPE 3 
52 DD 000 SHL Re : 
FD64 = CF 04 FB 00 CALLS #4, MAP_PLI_TYPE_SIZE : 
05 06 A2 9100 CMPB ss (R2), BS : 1072 
1 if B BNEQ 1$ F 
16 As 9 D CMPB #2(R3), #21 + 1072 
0c is 1 BNEQ 3 
50 6E 00 00033 MOVL SRC_SIZE, PICTVAL : 1072 
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3; Routine Size: 


4 
Ig-Sep-19 4 00:32:25 AX-11 Bliss-32 V4.0-74 Page 329 
-Sep-1984 90:32:82 DEBUG. SRC IDBGEVALOP .83 31 . 343 
ROUTINE PLI_HANDLER (SIG, MECH) = , 
i FUNCTION 


This handler catches PL/I specific data 9% conversion errors, and 
signals them as Debug errors. It resignals all other conditions. 


ow 


10764 1 
10765 1 
31 1 166 1 i 
31 10767 1 i 
: i 
110689 19790 1 i INPUTS 
5 13090 19778 : SIG = A counted vector of parameters describing the condition. 
51069 10773 1 i MECH = A counted vector of parameters from CHF. 
| urns 
710695 1 206 1 i 
: 10696 10777 1 i 
31069 10778 BEGIN 
fs tt wp 
:10700 10781 S1G: REF VECTORC,LONG); 
£10708 19988 ‘Translate all numeric exceptions to debug's facility code. 
18 i a ‘Also, translate SS$_ROPRAND to DBG$_ROPRANDF. 
£10705 10786 SELECTONE .SIGL1) OF 
310707 10788 CSS$_INTOVF): 
710708 10789 SIGNAL (DBGS_IINTOVF, 1, .DBGSGL_OPCODE_NAME); 
710709 10790 CSS$_DECOVF): 
510710 10791 SIGNAL (DBG$_DECOVF, 1, .DBGSGL_OPCODE_NAME); 
710711 10798 CSS$_FLTOVF, SSS"FLTOVF_F): 
10718 1079 L (DBGSFLTOVF> 1, .DBG$GL_OPCODE_NAME); 
71071 10794 CSS$_FLTUND, SSS"FLTUND FJ: 
210714 10795 SIGNAL (DBG$"IFLTUND, 1, .DBG$GL_OPCODE_NAME); 
110715 10796 CSS$_ROPRAND): 
10716 10797 SS ctatiy (OBGS_ROPRANDF . 1, .DBGSGL_OPCODE_NAME); 
[10718 10799 RETURN (SS$_RESIGNAL); 
710719 10800 COTHERWISE): 
310720 10801 SIGNAL (DBG$_PLICVTERR, 1, .DBGSGL_OPCODE_NAME); 
fs wm 
1 nt are: 
710725 10806 1 END; ! End of PLI_HANDLER 
000C 00000 PLI_HANDLER: 
-WORD Save R2,R3 ; 1076 
53 00000000" EF 9 9002 MOVAB DBGSGL_OPCODE_NAME, R3 ; 
50 04 AC 00 MOVL G, R : 1078 
50 04 C 99 ADDL2 #4 ; 
52 $9 dO 0001 mMovL (RO), R2 : 
0000047c = &F D1 001 CMPL Re. #1148 : 1078 
OC 12 OOO1A BNE ; 
63 DD 0001C PUSHL DBGSGL_OPCODE_NAME : 1078 


od 


— 


—_——— 


4 
DBGEVALOP Ip. Sep-1984 AX-11 Bliss-32 V4.0-74 Page 330 | 
VoL ety fi 90: $f: $2 DEBUG.SR RCIDB BGEVALOP.B32:1 ° (33 I 

1 DD 0001 PUSHL : 
000286A3 i DD 5 PUSHL #165539 : 
F 11 6 BRB 9$ : 
000004604 BF 32 D1 1$: CMPL Re. #1188 + 1079 
¢ 12 F BNEQ : 
DD 1 PUSHL DBGS$GL_OPCODE_NAME : 1079 
1 DD 3 PUSHL : 
00028A3A f DD PUSHL #166458 : 
00000468 =F 3 Db} 030 2$ CMPL = R2, #1164 : 1079 
1 44 BEQL 3 
00000484 8F 2 01 46 CMPL =- R2,- #1204 : 
¢ 12 00040 BNEQ : | 
63 0D Out 3$ PUSHL DBGS$GL_OPCODE_NAME : 1079 
oi DD 00051 PUSHL : 
00028A02 BF DD 9038 PUSHL #166402 : 
4¢ 11 00059 BRB $ : | 
00000469 BF 52 D1 0058 4$ CMPL R2, #1180 : 1079 
09 13 0006 BEQL : 
000004c4 = BF §2 Di 90064 CMPL R2, #1220 : 
o¢ 12 00068 BNEQ : 
63 DD 0006D 5$ PUSHL DBGSGL_ OPCODE _NAME : 1079 
01 0D 0006F PUSHL ; | 
00028698 8F DD 00071 PUSHL 4165531 : 
ec 11 00077 BRB : | 
00000454 8F D1 00079 6$ CMPL 2, #1108 + 1079) 
o¢ 12 00080 BNEQ ; 
63 0D 00082 PUSHL DBGSGL_OPCODE_NAME : 1079 
01 DD 00084 PUSHL : 
00028A0A 8F DD 00086 PUSHL #166410 : 
19 11 0008C BRB 9 ; 
00000920 =-&F 52 D1 0008 7$ CMPL R2, #2336 ; 1079 
06 12 0009 BNEQ : | 
50 0918 8F %3C 00097 MOVZWL #2328, RO : 1079. 
04 0009C¢ RET ; 
63 DD 0009D 8$ PUSHL DBGS$GL_OPCODE_NAME : 1080. 
01 oD 909° PUSHL # : | 
00028260 8F OD O00A1 PUSHL #164448 ; 
000000006 00 93 FB OOOA7 9$ CALLS #3, LIBSSIGNAL F | 
7C OOOAE CLRO. = = ( §P) : 1080 
000000006 00 02 FB 00080 CALLS 4% SYSSUNWIND : 
50 D4 00087 CLRL oR : 1080. 
04 09089 RET : 1080. 
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310727 1 4 1 ROUTINE TYPEID_CHECK_ENUM(TYPEID1, TYPEID2) = 
3107 : 1 3 1 : 
3107 10809 1 ' FUNCTION 
310750 10810 1 : This routine performs typeid check on the given TYPEIDs for enumeration 
310731 10811 1 : data types. 
3107 § 1 \¢ 1 : 
3107 10815 1 ! INPUTS 
3107 10814 1 ' TYPEID1 = TYPEID RST entry pointer. 
310735 10815 1 : 
3107 10 ig 1 : TYPEID2 = TYPEID RST entry pointer. 
3107 10817 1 : 
3197 8 18 8 1 ! OUTPUTS 
310739 1081 1 : Returned Status: TRUE or FALSE. 
310740 10820 1 : 
310741 10821 1 
3 107K8 108 ¢ BEGIN 
31074 108 
310744 10824 map 
310745 10825 TYPEID1: REF RSTSENTRY, ! Typeid pointer to RST entry 
tree 10826 TYPEID2: REF RSTSENTRY; ! Typeid pointer to RST entry 
31074 10827 
310748 10828 LOCAL 
310749 10829 STATUS; ! Return status 
310750 10830 
310751 10831 
5 1OT 86 108 § If .TYPEID1 EQL O OR .TYPEID2 EQ. 0 
31075 108 THEN 
310754 10834 RETURN FALSE; 
310755 bs tH 
310756 10836 IF .TYPEID1 EQL .TYPEID2 
310757 10837 
310758 10838 STATUS = TRUE 
310759 10839 
310760 10840 ELSE 
310761 10841 BEG! 
2 10768 94) IF .TYPEIDICRSTSB_FCODE) EQL .TYPEID2CRSTS$B_F CODE) 
31076 10843 3 THEN 
310764 10844 4 BEGIN 
310765 10845 4 IF .TYPEIDICRSTSB_FCODE] EQL RSTSK_TYPE_ENUM 
310766 ones 4 THEN 
31076 10847 5 BEGIN 
310768 10848 5 IF .TYPEIDICRSTSL_OSTPTR) EQL .TYPEID2CRSTSL_DSTPTR] 
310769 10849 5 
310770 Ht £4 2 STATUS = TRUE 
310771 10851 LSE 
3 10Tre + £3 5 STATUS = FALSE; 
31077 1085 
310774 10854 END 
310775 10855 
310778 10 2$ 4 ELSE 
31077 10857 4 STATUS = FALSE; 
310778 10 38 4 
310779 10859 4 END 
3 19780 10860 4 
£10782 10862 ; ELSE ATUS = FALSE 
£10788 19868 


base yA oP IB-ge Sep-1984 t 90: a: $2 AX-11 HH igeese v4.0-7 | Page ie 


-Sep-1984 4 DEBUG. DBGEVALOP. B3 37 
3107 10864 END; 
310785 10865 
3107 1 06 RETURN .STATUS; 
3107 1086 
3;10788 10868 END; 
0004 00000 TYPEID_CHECK_ENUM: 
.WORB Seve 3 1980 
51 04 AC D 0002 MOVL Foe ibd. R1 ; 1083. 
20 1 444) BEQL 4$ 3 
08 A ) 000. TSTL TYPEID2 F 
28 13 00008 BEQL 3 
28 08 AC 00 00000 MOVL TYPE 1Be. RO : 1083 
0 51 D1 00011 CMPL R1, RO 3 
14 13 00014 BEQL 1$° 3 
18 Ad 18 Al 91 00016 CMPB 4(R1), 24(RO) : 1084 
12 12 00018 BNEQ $ 3 
04 18 Al 91 00010 CMPB 4(R1), &6 : 1084. 
6C 12 00021 BNEQ $ $ 
0c AO 0c Al D1 00023 CMPL 12(R1), 12¢(R0) ; 1084. 
05 is 0028 BNEQ 2$ s 
52 01 DO OO02A 18: MOVL #1, STATUS ; 1085. 
0 11 0002D BRB 35° 3 
5 D4 OOO2F 2%: CLRL STATUS F 1086, 
50 52 dO 00031 35$: MOVL STATUS, RO ; 1086) 
04 000 RET 3 
50 D4 00035 4$: CLAL RO : 1086 
04 00037 RET 3 


; Routine Size: 56 bytes, Routine Base: DBGSCODE + 2B9A 


Mm 4 
vos-000 "$o$ep=198e 24:54:54 EDeeuG. SacSbaGe VALOP-039; 1 


Ge Se Ge Oe Ge Oe Ge Ge Se So Se 
SRIFERFEN=SS 


OwnFwn—00 


1978 69 ROUTINE TYPEID CHECK SET(TYPEID1, TYPEID2, FCODE1, FCODE2, DTYPE1, DTYPE2) = 
1 196 1 9 1 i FUNCTION 

21e0 1 ie 1 : This routine performs typeid check on the given TYPEIDs for set 
310794 10873 1 ! data types. 

210795 10874 1 i 

£1979 i RR i INPUTS | pe1D1 TYPEID RST i 

MS HR || meina = treo ast entry outer 

° ; ad t e 

BR aie SER Eee | ct ecm tenes i's 

PPS eile Boles 2 Gomer ey 

Hee || greet = sata 

3 - Data 

10808 eS 

10808 10887] ese 

310809 10888 1 i OUTPUTS 

310810 10889 1 ! Returned Status: TRUE or FALSE. 

i 

HH mn 3 oes 

710815 10894 MAP 

310816 10895 TYPEID1: REF RSTSENTRY, ! Typeid pointer to RST entry 
:10817 10896 TYPEID2: REF RSTSENTRY: i Typeid pointer to RST entry 
[10819 10898 LOCAL 

2138 ? +444 STATUS; ' Return status 
Weg 1888 yt YPEIDN Eau .TvPEID2 

310826 1090 N : 

138 2 : STATUS = TRUE 

310807 1 BEGIN 

3108 § i IF F CODE! EQL .FCODE2 

31 1 4 BEGIN 

i 1 4 1F x F CODEN EQL RSTSK_TYPE_ATOMIC 

i § ; BEGIN 

31 1 

31 1 6 

31 1 6 

31 1 6 

31 1 6 

31 1 6 

31 1 6 

31 1 6 

31 1 6 

31 1 6 

31 1 6 

31 1 6 


SERPEEE 


PEO ONO UE UW O OW 


PROPOR — OO OOo so 


OODODOO0O 


IF .DTYPE1 EQL .DTYPE2 
THEN 


IF .DTYPE1 EQL DSCSK_DTYPE_TF OR 
“DTYPE) EQL DSCSK-DTYPE“L OR 
SDTYPE? EQL DSCSK-DTYPE"LU OR 
“DTYPE1 EQL DSCSK-DTYPE-T 

THEN 

STATUS = TRUE 

ELSE 


c- 


essa” 


310 


~ 


te Ns ss — = 8 os a ss a is i 4 Ss ts or 


2.00 00 00 00 0000 CD CD 
DPSS 


WN —ODOONOUSWN—O0OO~ 


OOCCoCOOOOOOoOooOSoO 
33333 


Be Se Se Se Ge Fe Se Se Ge Se Se Ge Ge Se Se Se Se Se Ge Ge Se Se Ge Ge Se Se Se Sse Ge ee te 
oooocoe 
SSesee% 

SASH NAS SSUES 


$3$33sss 
© 0909 00 G0 Co 
SNS 


BREESE FWWWIWIWIWIwivrornorer 


i a a etd a ed ed dd od = = 1 
SOOCOOCOOOCOOOOCOOOOOOOOOOOOOOOOSOOOOOoO 
OOODODDOODOODO OOOO ODOODOODOOOODOOVODOOOOOOOO 
PPA VIII 

DNASE WO DOONAN E WN" OOONOUES WP" OOOnNIO 
IRINA E BB DSA AA AAA AAA MIE MII 


$0p-1984 2: AX-11 Bliss-32 V4.0-7 
if: Sep-1984 3:3 82 DEBUG. SRCIDBGEVALOP.639; 1 
ELSE 
STATUS = FALSE; 
END 
ELSE 
BEGIN 
IF .FCODE1 EQL RST$K_TYPE_ENUM 
THEN BEGIN 
IF .TYPEIDICRSTSL_DSIPTR] EQL .TYPEID2CRSTSL_DSTPTRI 
STATUS = TRUE 
STATUS = FALSE; 
END 


ELSE 
STATUS = FALSE; 


ELSE 
STATUS = FALSE; 


END; 
RETURN .STATUS; 
END; 


000C 00000 TYPEID Sa hee 


WOR Save ReoRs 
52 Ss AC pe MOVL TYPEIDI, | 
HR ae a 
10 Ac oc AC of PaPc Ftovet. FCODE2 
36 ¢ BNEQ 4S 
02 oc AC CMPL AeOoet. #2 
1E BNEQ 1 
50 14 =O 06 MOVL DIYPE1, R 
18 AC 8 ? ones : DTYPE 
28 § CMPL " #40 
ote oe 
vt peat 
. 3 BEQL i$" 


DBGEYAL OF Reabeme Q0:52:35 YAKGNT BLigg=52 v4 0-742 


OE o fi CMPL RO, #14 
B ii BRB 
04 oc b¢ ? A 18: euch : ODE1 
oc Al oc he ? & CMPL 12(R2), 12(R1) 
4 ge: BNEQ 4 
53 1 D 47 5$: MOVL #1, STATUS 
11 Q004A BRB 5$ 
D4 QO04C 4$: CLRL STATUS 
50 ey QO4E 58: MOVL STATUS, RO 
0051 RET 


; Routine Size: 82 bytes, Routine Base: DBGSCODE + 2802 


; 10880 10959 1 


Page 


<o 


a 
; Se ee ee SHS Oe Oe Oe Oe SH Oe ee SH Se Se ee Se BH Se Oe SHS SHS Se Se Se eeae 


BT CR Desi 5 agi eee eae RR aa TT hy rast nie § toe 
DBGEVALOP IB-Sep-19 4 90: 32:82 AX-11 Ol igsnte V4.0-74 Page 336 
v04- 1:54:24 CJD (56) 


-PSECT DBGSPLIT.NOWRT, SHR, PIC,0 
P.AMV: .ASCII \!DBGEVALOP\<92>\TYPEID_RANGE_CHECK_ENUM\ : 


45 50 59 54 SC 50 4F éf 41 56 45 
SF 48 43 45 48 43 SF 45 47 GE 41 


| 04 -Sep-1984 DEBUG. SRC JDBGEVALOP .B32;1 
3 10886 10960 1 ROUTINE TYPEID_RANGE_CHECK_ENUM(VAL_DESC, TYPEID) = 

31088 10961 1 ' 

310884 13906 1 ! FUNCTION ; 
310885 10965 1 : This routine takes given typeid in the value descriptor and 
3 1888 10964 1 : performs the value range check for enumeration type. 
;1088 10965 1 : 

; 10888 19908 1 ' INPUTS 

310889 10967 1 : VAL_DESC - Pointer to value descriptor. 

310890 10968 1 : 

310891 10969 1 : TYPEID - Typeid of the data type. 

31 eae 10970 1 : 

31089 10971 1 ' OUTPUTS : é 

310894 944 4 1 : Return True to indicate the value is in the range else 
310895 109735 1 ‘ return false. 

310896 10974 1 ‘ 

310897 10975 1 

£10899 10977 “bis 

310900 10978 Pp 

310901 10979 TYPEID: REF RSTSENTRY, 

31090 10980 2 VAL_DESC: REF DBGSVALDESC; 

31090 10981 $ 

310904 4 4 

310905 10983 2 ADR_KIND, ' Address kind 

310906 10984 : ADR_PTRS: VECTORC3,LONG), ! Address value 

310907 10985 NEL ! Number of elements — 
310908 10986 2 NLTVECPTR: REF VECTORC,LONG], | A vector of RST entries for the elements 
310909 10987 2 SIZE; 

18 

210912 10990 IF .TYPEIDCRSTSB_FCODE] NEQ RSTSK_TYPE_ENUM 

31091 10991 3 H 

3h 444) 5.44 $DBG_ERROR( *DBGEVALOP\TYPEID_RANGE_CHECK_ENUM"); 
310916 10994 $ DBGSSTA_TYP_ENUM(.TYPEID, NELTS, NLTVECPTR, SIZE); 

310917 10995 INCR I FROM”O TO .NELTS = 1 DO 

310918 10996 BEGIN 

310919 10997 DBGSSTA_SYMVALUE(.NLTVECPTRC.1], ADR_PTRS, ADR_KIND); 
310920 10998 IF .(.ADR_PTRSCOJ)<. ADR _PTRSC1), .SIZE, O> EQL 

310921 10999 & . (CVALIDESCEDBGSL_VACUE_POINTER]) 

3 10966 11000 3 TH 

3109 11001 3 RETURN TRUE; 

310924 1G END; 

310925 1100 

310926 11004 RETURN FALSE; 

310927 11005 

310928 11006 1 END; 


aus 
corn 
win & 
wwn 

r 

= 

= 
wo 
ooo 
ao 
a 
vow 
oom 


ao 


— 
oseunh 


50 


D9 


35 


04 


18 


00000000" ff 

00028362 F 
000000006 00 ; 
08 AE 

0 § 

000000006 99 04 
5 04 AC 

52 4 

2 

OC AE 

14 =A 

OC BES 

000000006 00 0 
E 6E 14 AE 
18 «BS 50 

04 

50 01 

52 08 AE 

50 


; Routine Size: 104 bytes, 


Routine Base: 


" 


000C 00000 TYPEID_RA 


9TMNOSO -OMNO OOOO "OOOO "OVO OoO-o0C0nF 
FVLOnMv- "DWI" Mow *"OWIO Wor 
SOSCOOCOCOCOCOOCOCOOOCOOCOOOOOOOOoOoOOOoO 
peje jlolololololololo lolol ololololololelojololelelolo) 
MOP AMOS SMO OVIMNO OF LONI OV 


SoOooooooooooOoOooooO 


oo 
oo 


an 
NVMIO 


DBGSCODE + 2C24 


— 
bod 


™~m 
sad 


Ww 
bad 


sept 
Sep-1 


be 29:36:54 


AX-11 OL ieee v4.0-74 
CJDB8 


DEBUG. SRC JDBGEVALOP.B32; 1 
-PSECT DBGSCODE,NOWRT, SHR, PIC,0 
NGE_CHECK_ENUM: 
SUBL2 _ # 
MOVL TYPELD, R2 
CMPB = 24(R2), 4 
BEQL~=s«s18 
PUSHAB  P.AMV 
PUSHL 
PUSHL #164706 
CALLS #3, LIBSSIGNAL 
PUSHL 
PUSHAB NLTVECPTR 
PUSHAB NELTS 
PUSHL Re 
CALLS #4, DBGSSTA_TYP_ENUM 
MOVL VAL_DESC, R3 
MNEGL ‘ 
BRB 3$ 
PUSHAB ADR_KIND 
PUSHAB ADR-PTRS 
PUSHL a@NLTVECPTREIJ 
CALLS #3, DBGSSTA_SYMVALUE 
EXTZV ADR_PTRS+4, SIZE, @ADR_PTRS, RO 
CMPL  =—- RO, -a@24(R35 
BNEQ $ 
MOVL #1, RO 
RET 
AOBLSS NELTS, I, 2$ 
CLRL = RO 
RET 


Page 337 
29° 35) 


1096 


1099 


| 


——_—_—  ——__—_wce ——— 


5 

DBGEVALOP ib-5e -1984 00:32:25 AX-11 Bliss-32 V4.0-74 Page 338 
vitae tty ~3e07} 382 90:32:82 DEBUG. SRC IDBGEVALOP.B3 31 . (338 
310930 11007 1 ROUTINE TYPEID_RANGE_CHECK_SUBRNG(VAL_DESC, TYPEID) = 
310931 11008 1 ! 

3109 ¢ 11009 1 ' FUNCTION 

3109 11010 1 ' This routine takes given typeid in the value descriptor and 
198 ¢ ya : performs the value range check for subrange type. 

109 é 11918 1 i INPUTS 

2138 4 Viele : } VAL_DESC - Pointer to value descriptor. 

310939 Vi9t¢ 1 i TYPEID - Typeid of the data types This is not 
310940 11017 (1 ' necessary from the VAL_DESC directly. 
310941 1101 1 ‘ 

3 18088 1101 1 ' OUTPUTS 

31094 11020 1 ' Return True to indicate the value is in the range else 
310944 11021 1 ! return false. 

1 ee eee 

710947 11024 ; BEGIN 

310948 11025 

310949 11056 MAP 

310950 11027 VAL_DESC: REF DBGSVALDESC, 

:1098¢ 11099 TYPEID: REF RSTSENTRY; 

[1095 11030 2 LOCAL 

310954 11031 2 LENGTH ' Length 

710955 1103¢ 2 HIGHPTR, i High range value 
310956 11033 2 LOWPTR, ' Low range value 
310957 11034 2 PARENT_TYPE ! Parent typeid 

210958 11035 2 SETVAL? VECTORC8, LONG) 

710959 11036 2 SETVALUE: REF BITVECTOR(I, 

al eeee tH § etre L_DESC: REF VECTORC, LONG), 

: 10968 11039 , 

ieee 11e9 IF .TYPEIDCRSTSB_FCODE] NEQ RSTSK_TYPE_SUBRNG 

310965 1ie6 3 $DBG_ERROR( *DBGEVALOP\TYPEID_RANGE_CHECK_SUBRNG'); 
510967 11044 2 DBGSSTA_TYP_SUBRNG(.TYPEID, PARENT_TYPE, LOWPTR, HIGHPTR, SIZE); 
: 10968 11045 2 IF ,VAL_DESTLDBGSB_DHOR_F CODE] EQLRSTSK_TYPE_SET 

[10970 11047 BEGIN 

310971 11048 LENGTH = (.VAL_DESCCOBGSW_VALUE_LENGTH] - 1) / 4 + 1; 

3 10878 11049 INCR I FROM 0 TO .LENGTH = 1 

31097 11050 SETVALC.1] = 2X°FFFFFFFE*; 

310974 11051 SETVALUE = SETVALLO); 

310975 1103¢ INCR I FROM —s TO ..HIGHPTR DO 

:1097%6 1105 SETVALUEL.1) = 0; 

21097 11054 SET_VAL_DESC = .VAL DESCCOBGSL VALUE_POINTER); 

310978 11055 NCR I FROM 0 TO .LENGTH - 1 DO 

310979 11028 4 BEGIN 

310980 1105 & SETVALC.1] = .SET_VAL_DESCC.1) AND .SETVALC.1); 
710981 11058 4 IF .SETVALC.1) NEG O THEN RETURN FALSE; 

3 10986 11059 3 

31098 11060 

710984 11061 RETURN TRUE; 

710985 11006 END 

310986 1106 


peety oP 


ifoseo-1986 90:5 


2 
4 


AX-11 4.0-7 


:§? OL igsete v4.0- $8 
724 DEBUG. SRC JDBGEVALOP.B32;1 


| 
:10987 11064 ELSE 
£19388 11985 IF (..HIGHPTR GEQ ..VAL_DESCCDBGSL_VALUE_POINTER]) AND 
: od = L_VAL 
310990 11069 4 (,.LOWPTR LEQ TWA DESCEDBGSE DALUL POINTERS) 
710991 11068 THEN 
:1099¢ 11069 RETURN TRUE 
71099 11070 ELS 
10994 11071 RETURN FALSE; 
710995 1107¢ END; 
710996 1107 
710997 11074 1 END; 
.PSECT DBGSPLIT,NOWRT, SHR, PIC,O 
45 50 59 54 SC 50 4F 4C 41 56 45 47 42 44 23 061E0 P.AMW: ASCII \#DBGEVALOP\<92>\TYPEID_RANGE_CHECK_SUBR\ 
SF 4B 43 45 48 43 SF 45 47 GE 4} 32 SF 44 49 O61EF 
52 42 55 «53 «(O61FE 
47 4E 06202 -ASCII \NG\ 
.PSECT DBGSCODE,NOWRT, SHR, PIC,0 
000C 00000 TYPEID_RANGE_CHECK_SUBRNG: 
-WORB Save R2,R3 
SE 30 ¢2 0000 SUBL2 #48, SP 
52 08 AC 00 0000 MOVL TYPEID, R2 
09 18 Ag 91 00009 CMPB  =s-s«-24 (R2). #9 
15 13 00000 BEQL 1 
00000000' EF 9F OO0OF PUSHAB P.AMW 
01 DD 00015 PUSHL 
00028362 8F DD 00017 PUSHL #164706 
000000006 00 03 FB 0001D CALLS #3, LIBSSIGNAL 
5E DD 00024 18: PUSHL SP 
08 AE 9F 00026 PUSHAB HIGHPTR 
10 AE 9F 00029 PUSHAB LOWPTR 
18 AE 9F 0002C PUSHAB PARENT_TYPE 
52 DD 0002F PUSHL R 
000000006 00 0 FB 0031 CALLS #5, DBGSSTA_TYP_SUBRNG 
§2 06 AC D 0038 MOVL VAL 
06 A2 91 0003C CMPB ss G(R), #8 
4 \2 0046 BNEQ 8s 
50 146 «OA 5 4 MOVZWL 20(R2), RO 
50 07 00046 ECL —-RO 
50 4 C6 00048 DIVL2 #4, RO 
0 D6 00048 INCL LENGTH 
51 1 cE 9040 MNEGL #1, I 
5 1 BRB 3$ 
10 AE41 1 cE 0 3 MNEGL #1, SETVALCI 
F7 51 0 Fe 00 $ AOBLSS LENGTH, I, 2$ 
53 10 AE 9E 00058 MOVAB SETVAL, SETVALUE 
51 08 BE 1 ¢ 6 F SUBL3 #1, aLOwPTR, | 
‘ee 64 BRB 5$ 
00 3 1 E3 066 4$: BBCC 1, (SETVALUE), 5$ 
F 1 06 BE F3 0006A S$: AOBLEQ @HIGHPTR, |, 4$ 


Page 339 
age 355 


; 1100 
; 1104 


; 1104 


1104 


1104 


1104 


1104 
1105 


110 
110 


Pee Se Se Se Se Se Se Se Se Se Se See Se Se See Se Se Se Be Be Be Be Se Be Oe Oe Oe & 


vaceynyo” iSeer9Hs 0:92:35 YAISND SLUSSSAZ WtGOZeg., © Pane 


40 
7) 
ag DO f MOVL 24(R2), SET_VAL_DESC ; 1105 
8 rf 3 MNEGL #1, I : 1105 
1 8 BRB 7$ 3 
53 6241 02 78 68: MCOM (SET_VAL 435 toes R3 3 
10 AES 53 CA 7¢ BICL R3, SETVALCI : 
1 § 081 BNEQ ; 1105 
F1 51 be ff 09 ; 7$ AOBLSS LENGTH, I, 6$ ; y's 
18 62 04 BE 01 00089 8$: CMPL @HIGHPTR, &24(R2) : 1106 
0B 19 0008 BLSS : 
18 62 08 BE 01 000 CMPL OL QUPTR. 24(R2) 3; 1106 
4 14 B88 BGTR 10$ 3 
4 QOO9A RET 3 
50 D4 00098 10S: CLRL RO ; 1107 
04 00090 RET 3 


; Routine Size: 158 bytes, Routine Base: DBGSCODE + 2C8C 


310998 11075 1 
: 10999 11076 0 END ELUDOM 
-EXTRN LIBSSIGNAL, SYSSUNWIND 
: PSECT SUMMARY 
; Name Bytes Attributes 
: DBGSPLIT 25092 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(O) 
; DBGSGLOBAL 4 NOVEC, WRT, RD NOEXE,NOSHR, LCL, REL, CON, PIC.ALIGN(2) 
; DBGSOWN 56 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, PIC,ALIGN(2) 
: DBGSCODE 11562 NOVEC,NOWRT, RD: EXE, SHR, LCL, REL, CON, PIC,ALIGN(O) 
: Library Statistics 
: weoe neces Symbo Ols eeee---- Pages Processing 
: File Total Loaded Percent Mapped Time 
i $255 SDUAZB:[SYSL 1831 18.3221 18619 56 0 1000 00:01.9 
: T$S55$DUAGB: DEBUG. 08 STRUCDEF gh 3231 3 G ? 00:00.1 
3; Be $3SDUA 8: DEBUG. 0B 3D L1B.L52;1 154 51 33 97 00:01.9 
3 2$255$DUA28: CDOEBUG.0BJ DSTRECRDS. L32;1 
: 418 24 5 31 00:00 .3 
3 ~$255$DUA28: (DEBUG.0BJ JDBGMSG.L32;1 386 17 4 22 00:00. 


; Information: 1 
; Warnings: 


rr 


H § 
"$o$2p=19Be 29:32:82 Ebgaue.SkcSbecevaccr.e8s;1 = 8°35) 


COMMAND QUALIFIERS 
: BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=L1S$:DBGEVALOP/OBJ=0BJ$:DBGEVALOP MSRC$:DBGEVALOP/UPDATE=(ENH$: DBGEVALOP) 
; Size: woes code + 25152 data bytes 

Ti 219.9 


; Run Time: 
3; Elapsed Time: 6383: 
3: Lines/CPU Min: 136? 


; Lexemes/CPU-Min: 5 
: ry Used: 1211 pages 
; Compilation Complete 


"NT CORPORATION 
D PROPRIETARY 


AH-BT13A-SE 
VAX/VMS V4.0 


PMENT CORPORATION 
-AND PROPRIETARY 


AH-BT13A-SE D 
VAX/VMS_ V4.0 C 


08 


NT CORPORATION 
D PROPRIETARY 


: 008 AH-BT13A-SE DIGI 
VAX/VMS V4.0 CONF 


